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EDITORIAL 


Comme vous le savez, nous avons tenu notre assemblée générale le 22 Janvier dernier. Voir le 
compte rendu page suivante. Mais le fait le plus important de cette AG est sûrement le vote à une 
écrasante majorité de la modification des statuts visant à inciter tous les adhérents à écrire au moins 
un article pour le club. Maintenant, il ne vous reste plus qu’à appliquer cette mesure... 


C'est avec grand plaisir que nous voyons que de nouveaux auteurs n’ont pas attendu ce vote pour 
nous envoyer des articles. Ce qui est intéressant, c’est que pour la plupart, il s’agit de nouveaux 
adhérents. Pouvons nous espérer que les arrivants aient plus de civisme que beaucoup d’anciens ? Si 
oui, nous pouvous voir l’avenir du club en rose... 


Comme pour les gros listings assembleur PC et en langage C publiés dans des numéros précédents, 
ce JPC comporte un source HP48 présenté en format vertical. Bien que "cassant" un peu 
lhomogénéité de la mise en page, ce format permet d’ajouter plus de commentaires sur ces listings. 
Dites nous ce que vous pensez de cette présentation. Votre avis nous est utile, surtout si nous 
réalisons notre projet de changer la mise en page de JPC à partir du numéro 100... 


Comme le mois dernier, la rubrique HP28 est assez courte. Cependant, cette fois-ci, c’est plutôt dû à 
des contraintes de mise en page. Mais l'avantage de la HP28 est qu’elle peut aussi utiliser les 
programmes RPL de la rubrique HP48, sui est très fournie ce mois ci... En ce qui concerne la 
rubrique HP95, elle est aussi très courte ce mois ci. Que les utilisateurs de cette machine ne 
s'inquiètent pas, cela n’est pas un indice du déclin de la rubrique, mais plutôt le contraire : de 
nombreux articles en cours d’écriture, mais qui ne seront prêts qu'après que certains derniers détails 
auront pu être trouvés. En attendant, il serait peut-être temps que les utilisateurs de HP95 suivent 
l'exemple des possesseurs de HP48 en participant un peu plus, le temps d’assurer le relais. 


Pour finir, vous avez sûrement remarqué le changement de couleur de ce JPC. Ce vert "Kiwi" nous 
accompagnera tout au long des dix prochains numéros. Nous pensons sans aucun doute que vous le 
trouverez plus reposant que la couleur de l’année dernière ! 
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COMPTE-RENDU DE 
L'ASSEMBLEE GENERALE 


Comme prévu, notre Assemblée Générale s’est 
déroulée au Centre Verdier, le 22 Janvier 1994. 


Assemblée Générale Extraordinaire. 


Rappelons que cette assemblée générale avait pour 
but de discuter de modifications statutaires devant 
permettre de relancer l'écriture des articles pour JPC. 


Une évidence est que tout le monde souhaiterait que 
le journal soit plus étoffé. Cela ne ferait en plus que 
nous permettre de creuser encore plus l'écart qui 
existe entre nous et les autres clubs. 


Il semble aussi qu’une prise de conscience soit en 
train de se faire à propos du fait qu’il n’est pas très 
bon, pour la renomée du club, de laisser penser que 
seulement une poignée d’auteurs soient actifs. Cela 
ne fait que confirmer mon opinion qu’il vaut mieux 
trois articles de trois pages, écrits par trois auteurs 
différents, qu’un seul article de dix pages... 


Pourtant, une des objections faites est que les 
adhérents actuels programmeraient moins que ceux 
du début du club. Si cela ne peut pas être vérifié, il est 
cependant certain que la majorité des programmeurs 
et utilisateurs actifs écrivaient régulièrement jusqu’en 
1986 ou 1987, ce qui n’est plus le cas actuellement. A 
titre d’information, un rapide calcul (portant sur ces 
deux dernières années) montre que les deux 
principaux auteurs ont écrit plus de 50 articles et que 
le troisième n’en a fait que 10... 


Une fois encore, il a été répété que les articles ne 
devaient pas être obligatoirement des programmes, 
mais pouvaient être aussi, par exemple, des "trucs" 
d'utilisateurs (ne demandant pas obligatoirement de 
programmer) ou des présentations de nouveaux 
livres, logiciels, ou matériels (le bureau recevant en 
fait peu de choses. Ceci peut aussi inclure des dessins 
servant à agrémenter un peu le journal. 


Après discussion de ces points, la proposition est 
passée au vote. Parmi les votants (les adhérents 
présents ou représentés par un pouvoir), il n’y a eu 
qu’un vote "contre" et une abstention. La modification 
est donc approuvée à la quasi-unanimité. 


Comme cela a été annoncé, les premiers adhérents 
touchés par cette mesure seront ceux dont l’adhésion 
se termine à la fin du mois d’avril 1994. 


Hormis les statuts eux-mêmes, d’autres documents 
sont touchés par cette modification. En premier lieu, 
le bulletin d'adhésion portera maintenant une 
mention mentionnant brievement Particle 7. Il y aura 
aussi quelques mots de rappel dans les lettres 
annoncant la fin de la période d’adhésion. 


Enfin, nous allons profiter de ces modifications de 
statuts pour reprendre une habitude qui avait été 
perdue depuis plusieurs années : les envoyer 
systématiquement aux nouveaux adhérents. Pour les 
membres actuels, ils sont inclus dans ce JPC. 


Tout ceci devrait nous permettre de revenir 
progressivement à un journal ayant une pagination 
moyenne de 50 pages (comme cela se faisait il y a 
quelques années), avec une segmentation idéale de 
20% HP48, 40% HP48 et 40% HP95/100. Et 
accessoirement de recréer un stock d’articles, 
indispensable pour assurer une bonne diversité des 
articles et techniques de programmation présentes 
dans chaque numéro. 


Assemblée générale Ordinaire 
Rapport du président 


Comme je lai déjà dit, la situation de PPC Paris est 
plutôt bonne si on la compare à d’autres clubs 
étrangers. En effet, nous somme un des seuls clubs à 
avoir pu mener une activité "normale", en sortant tous 
les journaux prévus, en continuant à organiser les 
réunions et en assurant toutes les autres taches 
normales du bureau (courrier, trésorerie. 





Cependant, puisque les nouveaux utilisateurs ne 
semblaient pas avoir connaissance de nos activités par 
les moyens que nous avions auparavant (support 
technique HP, revendeurs...) nous avons du recourir à 
d’autre méthodes pour faire connaitre PPC Paris. 
Cela a été fait principalement en effectuant un accord 
avec le nouveau journal Poche Computer, consistant à 
faire paraitre une publicité du club en échange d’un 
article (qui était paru précédement dans JPC). Ceci 
nous ayant apporté une soixantaine de demandes de 
renseignements (pour les personnes ayant 
explicitement cité Poche Computer dans leur lettre), 
dont environ le quart ont effectivement adhéré. 


Affaire Nalin 


Pour les nouveaux adhérents, je rapelle que cette 
affaire (nous occupant depuis le début de 1992), a 
débuté lorsque Jean-Paul Nalin, un ancien membre 
du bureau a disparu en détournant à son profit 
différents biens appartenant au club, dont notre 
LaserJet et la majeure partie du stock d’un très gros 


JPC devant être envoyé aux adhérents. 











Après les événements survenus en 1992 (je conseille 
aux "vieux" adhérents de se reporter au compte-rendu 
de l’Aassemblée Générale précédente pour plus de 
détails), nous avons attendu jusqu’en fin avril 1993 
pour avoir les premières retombées juridiques de 
cette affaire : une Citation à Victime dans le cadre 
d’un jugement devant survenir le 19 Mai 1993. 


Or, à la réception de cette convocation, je me suis 
aperçu que seule la LaserJet était citée. Pas les 
journaux, ni le reste du matériel. Etait-ce un simple 
souci de simplififer la rédaction de cette convocation, 
un oubli "administratif" ou une décision de la justice ? 
Malheureusement, pour obtenir une réponse à ces 
questions, il est obligatoire de recourir à un avocat 
pouvant avoir accès au dossier et connaitre les 
résultats de l'enquête. Le club ne pouvant pas engager 
de frais pour engager un avocat, j'ai déposé une 
demande d'aide juridique, puisque cela est 
théoriquement possible pour les association à but non 
lucratif. 


Les délais pour obtenir cette aide étant très longs, jai 
aussi dû demander un report d’audience. Il nous été 
accordé, au cours de laudience originellement 
prévue, pour le 15 Septembre. Cependant, le juge m’a 
confirmé à l’occasion que seule la Laserjet serait prise 
en compte pour le jugement. Sans vouloir m’en 
expliquer la raison. Notez que Jean-Paul Nalin n’était 
pas présent et n’avait pas retiré sa convocation à la 
mairie d’arrondissement de son lieu déclaré de 
résidence. 


Or, le lendemain, une personne a déposé chez Eric 
Gengoux (le président précédent), en son abscence, 
un carton contenant notre LaserJet et le lecteur de 
disquette HPIL 9114 ! Les deux en excellent état de 
fonctionnement... 


Cependant, puisque les journaux ne nous avaient pas 
été restitués (et représentent finacièrement plus de 
7000F), nous avons décidé de continuer la procédure 
et d'attendre d’avoir un avocat afin de discuter de la 
marche à suivre, avant d’annoncer officiellement cette 
restitution. En effet, il était dans notre intérêt de faire 
réintégrer d’abord les charges omises dans le 
jugement, car nous pensions que si le cas de la 
LaserJet était jugé seul, nous pourrions perdre toute 
possibilité d’action en ce qui concerne les journaux. 
D'autre part, il est a noter que dans le cas d’abus de 
confiance, le fait de restituer les éléments détournés 
ne stoppe pas l’action de la justice. 


Le jour de la deuxième audience, en septembre, nous 
n’avions toujours aucune nouvelle de la demande 
d’aide juridique. Ce qui nous poussa à demander un 
deuxième report. En fait, j'ai de fortes chances de 
penser que la demande a été "enterrée" par une 


—————"" 


secrétaire qui devait nous envoyer une demande 
d'informations complémentaires. Chose que j'ai 
déduite après avoir donné une multitude de coups de 
téléphone afin de connaitre l’état d'avancement du 
dossier. 


Ce n’est que le 28 Octobre (soit six mois jour pour 
jour après la demande !) que nous avons reçu un avis 
de rejet de la demande sous le prétexte que l’aide 
judiciaire n’était accordée qu’à titre exceptionnel aux 
associations. 


Je me suis donc présenté à l'audience du 15 
décembre, sans l’aide d’un avocat. Comme pour les 
deux audiences précédentes, Jean-Paul Nalin était 
absent. Il n’y a lieu d’en être étonné, si l’on sait que 
cette personne n’a pour adresse qu’une multitude de 
boites aux lettres disséminées dans Paris et que 
plusieurs personnes ont déposé des plaintes pour abus 
de confiance contre lui. Chose confirmée par la 
mimique du juge évoquant un casier judiciaire 
chargé. Comme prévu, je n’ai pas pu réintégrer le 
stock de journaux (ni savoir pourquoi ces eléments 
étaient ignorés). Par contre, j'ai pu démontrer que le 
fait de ne pas disposer de la LaserJet nous a causé un 
préjudice, en nous empechant de porter le 
programme d’impression du journal sur IBM PC, puis 
revendre notre IPC (un petit compatible HP9000, 
tournant sous Unix) avant une période où il a 
fortemant baissé de prix sur le marché de l’occasion. 
La sanction est donc tombée : deux mois de prison 
fermes plus 5000F de dommages et intérêts. Une 
comdamnation relativement lourde si l'on sait que 
cela ne concernait que la LaserJet et que je venais 
d’annoncer qu’elle nous avait été restituée ! 


Cependant, il faut être réaliste, il y a peu de chances 
que cette condamnation soit appliquée, puisque 
Jean-Paul Nalin est actuellement introuvable. Toute 
information est bien sûr la bienvenue à ce sujet ! 


En ce qui concerne les journaux, il serait maintenant 
nécessaire de déposer une nouvelle plainte à ce sujet. 
Etant donné le temps qu'a duré la première 
procédure (un an et demi !), le fait que nous avons 
peu de chances de les récupérer (je pense qu’ils sont 
totalement dispersés), Poser une nouvelle plainte ne 
serait qu’une perte de temps, surtout si nous n’avons 
pas d’avocat pour nous assister. 


Les projets du club 


La conclusion de l'affaire Nalin va enfin nous 
permettre de remplacer l'ordinateur appartenant au 
club (L'IPC cité dans le paragraphe concernant 
l'affaire Nalin), par un portable, que nous pourrions 
faire circuler parmi les membres du bureau (trésorier, 
éditeur du journal.) mais surtout ammener aux 
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réunions afin de faciliter les échanges de 
programmes. Financièrement, cela devrait se faire en 
revendant l'IPC (par exemple à un étudiant désirant 
utiliser Unix sur une machine conçue à cet effet) et en 
achetant un matériel d’occasion. 


En ce qui concerne le journal, nous devrions arriver 
au numéro 100 en octobre. Il serait intéressant de 
profiter de l’occasion pour faire évoluer sa mise en 
pages. Tout en conservant le principe général du JPC 
actuel (sommaire en couverture, séparation des 
machines...) nous pourrions definir une maquette plus 
attractive, avec plus d’enrichissements graphiques et 
probablement une nouvelle façon de présenter les 
sources. Cependant, j'ai fixé une contrainte dans le 
choix du logiciel de PAO que nous pourrions utiliser : 
qu'il soit diffusé en "Freeware" ou en "Shareware". 
Ceci d’une part afin de ne pas trop grever le budget 
du club, et d’autre part afin de pouvoir redistribuer 
légalement des copies du programme aux auteurs 
réguliers. Notez que j'ai déjà fait des essais avec un 
logiciel nommé Envision Publisher, mais qu’il n’est 
pas satisfaisant. Cependant, il est très probable que 
des logiciels plus adaptés à nos besoins apparaissent 
au cours des prochains mois. 


Jacques Belin (123) 





LES NOUVEAUX STATUTS 


ARTICLE PREMIER : 


Il est fondé entre les adhérents aux présents Statuts 
une Association, régie par la loi du 1er juillet 1901 et 
le décret du 16 août 1901, ayant pour dénomination : 
PPC Paris. 


ARTICLE 2 : 


Cette Association a pour but de réunir des amateurs 
et utilisateurs de l'informatique ainsi que d’assurer la 
mise en commun des connaissances informatiques de 
chacun au profit de tous. 


ARTICLE 3 : 


Le siège social est actuellement fixé à Paris. Il peut 
être déplacé par simple décision du Bureau. 


ARTICLE 4 : 


La durée de l'Association est illimitée. 


ARTICLE 5 : 
Les moyens d’action de l’Association sont : 


- le bulletin de liaison JPC ; 

- des réunions ; 

- toute activité autorisée par la Loi dans le cadre de 
l'Article 2 et avec l’accord du Bureau. 


ARTICLE 6 : 


L'Association se compose : 

- des membres actifs, c’est à dire tout adhérent aux 
présents Statuts, à jour de sa cotisation. 

- des membres honoraires nommés par le Bureau 
parmi les personnes qui ont rendu ou rendent des 
services à l'Association ; ils font partie de droit de 
PAssemblée Générale sans pouvoir prendre part aux 
votes. 


ARTICLE 7 : 


Pour devenir membre actif de l’Association, il faut 
avoir acquitté sa cotisation et être agréé par le 
Bureau. 


Pour pouvoir réadhérer à l'association, il faudra en 
plus avoir transmis au club au moins un article (d’une 
page minimum) pour le journal JPC, au cours de 
lannée d'adhésion précédente. Les premiers 
adhérents concernés par cette mesure sont ceux dont 
l'adhésion se termine fin avril 1994. 


ARTICLE 8 : 


Les ressources de l’Association se composent : 

- des cotisations de ses membres ; 

- des subventions ; 

- des revenus de ses biens ; 

- de toute ressource autorisée par les textes législatifs 
et réglementaires. 


ARTICLE 9 : 


La qualité de membre de l'Association se perd : 

- par démission ; 

- par décès ; 

- par radiation prononcée par le Bureau pour non 
paiement de la cotisation ou pour motif grave. 











ARTICLE 10 : 


L'Association est administrée par un Bureau composé 
de membres actifs élus pour un an par l’Assemblée 
Générale. 
Le mode de scrutin est fixé par le Règlement 
Intérieur du Bureau. Les membres du Bureau sont 
rééligibles. 


Le Bureau comporte au moins : 
- un Président ; 
- un Trésorier ; 
- un Secrétaire. 


Si, au bout d’un an, le Bureau sortant n’est pas 
renouvelé, ses pouvoirs sont prorogés jusqu’à la plus 
prochaine Assemblée Générale. 

En cas de vacance ou d’incapacité, le Bureau pourvoit 
provisoirement au remplacement de ses membres en 
attendant la prochaine Assemblée Générale. 


ARTICLE 11 : 


Le Bureau se réunit au moins une fois tous les six 
mois sur convocation du Président ou sur demande 
d’un tiers de ses membres au moins. 

Le quorum est fixé aux 2/3 des membres du Bureau. 
Les décisions sont prises à la majorité absolue des 
voix ; en cas de partage, la voix du Président est 
prépondérante. 

Tout membre du Bureau qui, sans excuse valable, 
n'aura pas assisté à trois réunions consécutives sera 
considéré comme démissionaire de son poste. 


ARTICLE 12 : 


Le Bureau est investi des pouvoirs les plus étendus 
pour autoriser tous actes qui ne sont pas réservés à 
Assemblée Générale. 


Il assure la gestion matérielle et financière de 
PAssociation. 

Il fixe le montant de la cotisation. 

11 se fait rendre compte des décisions prises en son 
nom. 

Il autorise tout achat, aliénation ou location, emprunt 
et prêt nécessaires au fonctionnement de 
Association. 

IL établit à l’unanimité un Règlement Intérieur 
portant application des présents Statuts. 

Il peut faire toute délégation de son pouvoir pour un 
temps déterminé à tout membre actif de 
FAssociation. 

Le patrimoine de l'Association répondra seul des 
engagements pris en son nom et aucun des membres 
du Bureau ne pourra en être tenu responsable. 


EE 


ARTICLE 13 : 


Le Président convoque les Assemblées Générales et 
les réunions du Bureau. 

Il représente l’Association dans tous les actes de la vie 
civile et est investi de tous pouvoirs à cet effet. En cas 
d’absence ou d’indisponibilité, il est remplacé par un 
membre du Bureau pris dans l’ordre de leur élection, 
ou, en cas d’empêchement, par le membre actif 
disponible ayant la plus grande ancienneté au sein de 
lAssociation. 


ARTICLE 14: 


Le Trésorier est chargé de la gestion des comptes et 
du patrimoine de l'Association. 

Ses décisions financières sont contrôlées par le 
Président ou, à défaut, par tout autre membre du 
Bureau. 

Il présente le rapport financier de l’année écoulée à 
l'Assemblée Générale et propose un projet de budget 
pour l’année à venir. 


ARTICLE 15: 


Le Secrétaire est chargé de tout ce qui concerne la 
correspondance et les archives. 

Il rédige les procès-verbaux des délibérations et en 
assure la transcription sur les registres. 


ARTICLE 16 : 


L'Assemblée Générale est convoquée au moins une 
fois par an par le Président. 

L'ordre du jour est porté à la connaissance des 
membres sur leur convocation au moins une semaine 
avant la date fixée pour l’Assemblée Générale. 
L'Assemblée Générale comprend tous les membres 
actifs, présents ou représentés, à jour de leur 
cotisation à la date de la convocation et est présidée 
par le Président assisté des membres du Bureau. 

Le Président expose la situation morale de 
Association au moment de la convocation. 

Le Trésorier rend compte de sa gestion et soumet son 
bilan à l'approbation de l’Assemblée. 

L'Assemblée Générale peut conférer à tout membre 
du Bureau autorisation d’agir dans le cadre des buts 
de lAssociation dans tout domaine où les présents 
Statuts se révéleraient insuffisants. 

Après épuisement de lordre du jour, il est 
éventuellement procédé au renouvellement des 
membres du Bureau. 

Toutes les décisions sont prises à la majorité absolue ; 
en cas de partage, la voix du Président est 
prépondérante. 
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ARTICLE 17 : 


Une Assemblée Générale Extraordinaire peut être 
convoquée dans les mêmes conditions qu’à l'Article 
16 ou sur demande d’au moins un quart des membres 
actifs. 

Son objet ne peut être alors que de décider : 

- une modification des Statuts ; 

- une radiation ; 

- une fusion avec toute association de même objet ; 

- la dissolution. 


Le quorum d’une telle Assemblée est fixé à 20 % des 
membres actifs, présents ou représentés, et les 
décisions doivent y être prises à la majorité des 2/3. 
Si le quorum nest pas atteint, une nouvelle 
Assemblée Générale Extraordinaire est convoquée 
qui délibérera sans contrainte. 


ARTICLE 18 : 


La dissolution ne peut être décidée que par une 
Assemblée Générale Extraordinaire convoquée dans 
les conditions de l'Article 17. 

L'Assemblée décide de Pattribution des actifs de 
FPAssociation conformément à l'Article 9 de la loi du 
ler juillet 1901 et du décret du 16 août 1901. 

Elle désigne un ou plusieurs commissaires, dont elle 
détermine les pouvoirs, chargés de la liquidation. 


Fait à Paris le 22 janvier 1994 





LE NOUVEAU 
SUPPORT TECHNIQUE 
Depuis peu de temps, le support technique 
calculatrices n’est plus pris en charge par 


Hewlett-Packard, mais par la société INFOPOINT. 
Cette société est un des deux principaux grossistes de 
matériel HP. 


Si vous avez un problème quant à Putilisation de votre 
calculatrice préférée.il vous faudra donc appeler le 
(1) 69 18 20 64, où Xavier Bouchet se fera un plaisir 
de vous répondre. 


Jacques Belin (123) 


COURRIER DU COEUR 


Jean-François GARNIER 
47 allée de la Dent de Crolles 
38420 DOMENE. 


Cherche : 


Pour HP75 (oui, je parle bien du 75C!) : 

- ROM Math, 

- ROMI/0 (APRIL), 

dans le but de compléter ma collection. Si vous avez 
ces matériels au fond d’un placard (quelle honte!), ou 
si vous connaissez quelqu'un les possédant, faites moi 
une offre. 


Philippe Guez 

56, rue Jean-Jacques Rousseau 
75001 Paris 

Tel : (1) 42 84 00 69 


Cherche : 


Une Ram/Eprom, ou juste une Eprom 64 ko 
enfichable dans le port du lecteur de carte du HP-71; 
une interface HPIL-RS232. 

Et un volontaire pour lui faire un Lex HP-71. 


Florent Euanno 

3, rue Marie Fichet 
92140 CLAMART 
Tel: (1) 46 32 52 50 


Cherche : 


Un HP95 avec 512 Ko, prix : environ 1800 FF 











HP28 


G. Toublanc 


Modes Symbolique/Numérique (acte II) 


Le coin des codes 
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TRUCS ASTUCES ET 
PETITS UTILITAIRES 


Un tout autre SYMB pour HP28S 


Dans JPC 91 page 4, je proposais symB, un petit 
programme permettant de passer du mode 
symbolique au mode numérique et vice versa. Voici 
son cousin en assembleur, mais fonctionnant d’une 
manière qui paraîtra plus agréable à certains. En effet 
le nom du programme se modifie suivant le mode. En 
mode numérique le label du programme est sys, lors 
du passage en mode symbolique un petit carré est 
ajouté à Sym. 


Les limites du programme : 


Ce petit programme simule ce qui se fait dans le 
menu MODE mais ne peut pas prétendre avoir la 
maîtrise complète du système de la machine comme 
ses cousines STD FIX etc... 


La correspondance entre le label symx et le mode 
symbolique/numérique n’est valable que si l’état du 
flag 35 n’est pas modifié par un programme. Il est 
donc conseillé dans un programme de sauvegarder 
l'état des flags avec RcLF et de les restaurer en fin de 
programme. De toutes manières symx est fait avant 
tout (comme son prédécesseur symB) pour vous éviter 
de vous souvenir constamment de l’usage du flag 35. 


Autre particularité : sYmx ne peut être activé que dans 
le répertoire où il se trouve, donc sa place toute 
indiquée pourra être dans le répertoire HOME. 


Principe du programme : 


Le nom du programme est syM + 1 caractère, donc au 
total 4 caractères. Le programme change l’état du flag 
35 et suivant le mode ainsi activé change le dernier 
caractère du nom : 


- Passage en mode symbolique : caractère = CHR 0, ce 
qui se traduit à l'affichage par un petit carré à la fin 
du label. 

- Passage en mode numérique: caractère = 1 espace, 
ce qui se traduit à l’affichage par le label sy tout 
simplement. 


Mode d'emploi: 
Pour stocker le programme opérez de la manière 


suivante: ajouter une quelconque lettre au nom, par 
exemple ’syma’. 


Le programme assemblé étant sur la pile faire 
"SYM “ # 5B15h SYSEVAL STO pour transformer la 
chaîne "sy " (se terminant par un espace) en nom 
global avant de stocher le programme. 


Pour la première fois si vous activé SYhx il y aura 
passage dans l’autre mode, le label modifié perdra sa 
dernière lettre. Pour toutes les autres activations le 
label sera modifié en parallèle avec le changement de 
mode symbolique/numérique. 


Pour contrôler le bon fonctionnemet de sywx, après sa 
deuxième activation, tapez # puis faire 
alternativement Symx x et éventuellement ENTER si c’est 
le mode numérique pour constater l'effet. 


Pour purger SYMx dans son répertoire faire: VARS puis 
repérez dans la liste la position N de symx que vous 
extrayez avec N GET. Un PURGE est maintenant 
réalisable. 


Voici ce programme. 





SYMx 
cksum: # 9245h 40.5 octets 
ASSEMBLE 
con(5) #02096  * DOCODE 
rel(5) end 
gosbvl  #05081  * SAVPTR 
gosub here 
here c=rstk * adresse du prog. ici 
* à programme à “here 
16 * pour pointer sur 
9 * dernier caractère du 
* nom # # ou CHR 0 
d0=(5) #c0117  * #C010Fh + 8 (32/4) 
* à sur flag 33 
a=dat0 à * état flags depuis 33 
c=0 a * pour CHR 0 
?abit=0 2 * flag 35 à zéro ? 
goyes num * oui alors en num 
abit=0 2 * non symb. alors num 
leasc 1% * et dernier caract. 
gonc Load * puis charge en mém. 
num abit=1 2 * passage en symb. 
Load datO=a à * change flag 35 
dati=c b * change dernier car. 
govlng #125e1  * GETPTRLOOP 


end 


Voir la liste des codes dans le coin des codes. 


Guy Toublanc (276) 











HP48 


C. Nober 

R. Amram 

JF. Garnier 

L.V Huynh / G:.T. Toublanc 
G. Toublanc 

G. Toublanc 


Annuaire téléphonique 

Conversion de caractères accentués 
Numéro de semaine (acte 3) 

Trucs, Astuces et Utilitaires 

Conversion de fichiers Xmodem (acte II) 
PEEK et la Rom Cachée 


Le coin des codes 








JPC 93 Page9 — 





—— JPC 93 Page 10 








ANNUAIRE TELEPHONIQUE 


NDLR : Un an après un programme de Laurent Grand gérant un 
annuaire téléphonique, en voici un autre traitant du même sujet. 


Je vous envoie un programme de débutant pour d'autres 
débutants. C'est un petit répertoire d'adresses, téléphones et 
notes. 


Le stockage des données se fera dans une liste contenant des 
sous-listes spécifiques à chaque NOM. Cette liste s’appellera 
'LTEL?. 


Par exemple : 
'LTEL' € € "NOM Prénom" 
“adresse” 
Mtel : 12 34 56 78" 
“membre PPC" } 
Last 


2 


Pour chaque nom, on créera une sous-liste contenant 
4 chaines alphanumériques. 


On veillera à ne pas dépasser 6 lignes par chaine et 
une seule ligne (ou plus à condition de limiter alors 
les autres chaînes) pour le nom-prénom. 


LTEL doit contenir au moins une sous-liste pour que le 
programme 60 puisse "tourner". 
Exemple: € Qu me mu mu} 3 


Architecture du programme. 


HOME - /TELEF! « TEL GO » 
| (programme de démarage depuis HOME) 
U 


TEL - EST : € GO } 
Csous-répertoire) - GO 

- INTRO 

- TEL2...TEL6é 


Programme N° 


Ce programme prend dans la première ligne de la 
pile une chaîne alphanumérique et va, par 
dichotomie, trouver le numéro de classement qui lui 
correspond dans LTEL. 


La variable locale x jouera le rôle de borne inférieure, 
sa valeur de départ sera 1. 


La variable locale Y jouera le rôle de borne 
supérieure, sa valeur de départ sera : 
« LTEL SIZE 1 + », c’est à dire la taille de LTEL plus 1 


(ce qui correspond à la dernière place de LTEL avec le 
nouvel élément). 


La variable 2 sera notre variable de comparaison, 
toujours choisie entre X et Y, donc « X Y + 2 / » 
Programme INTRO’ 

Ce programme demande "NOM Prénom", "adresse", 


"numéro de téléphonne", "notes" et place les quatres 
chaînes dans la pile et renvoie au programme TEL3. 


Programme ’TEL2° 


Efface de la liste LTEL la Nième liste. N est placé à la 
première ligne de la pile. 


Programme TEL3’ 
Ce programme reçoit les quatre chaînes 
alphanumériques générées par INTRO ou TEL4. En fait, 
une liste qu’il classe ensuite dans LTEL. 
Programme ’TEL4’ 
Ce programme permet de modifier les quatre chaines 
alphanumériques q’une sous-liste N (en fait, il efface 
la sous-liste dans LTEL tout en la conservant dans la 
pile pour la modifier puis la réenregistrer. 
Programme TELS 
Affichage succint de la Nieme sous-liste. 

>NOBER Christophe 

tel : 12 34 56 78 


Programme ’TEL6’ 


Affichage Complet. 


Programme °GO’ 


Programme de gestion du répertoire : 

- Affiche les menus. 

- Gère l'affichage. 

- Place au dessus de la pile le chiffre N qui correspond 
à la sous-liste pointée, sa première valeur est 1. 


MENU : 


-"171": Cherche un nom avec ses premières lettres. 











- "1": Remonte la liste. 

- "1": Descend la liste. 

-"voir" : Permet de visualiser les éléments non 
visibles (adresse et notes). Le retour se fait par la 
touche ENTER. l'affichage du Nom est précédé de 
VOIR>NOM. 

-"MooiF" : Permet d’effacer ou modifier le nom à 
Paffichage. 

-"NOTER" : Enregistrer une nouvelle donnée. 





Comment tout cela fonctionne-il ? 


Il suffit de taper directement depuis HOME sur TELEF ou 
entrer dans le répertoire TEL, puis taper Go. 


- Pour noter un nom, taper NOTE, puis suivre les 
instructions et exemples, le retour au menu est 
automatique dès la saisie terminée. 
- Pour chercher un nom avec ses premieres lattres, 
taper "121". 

"t" et "1" font défiler les noms avec les numéros de 
téléphone. 
-"voir" permet de faire afficher l'adresse puis, si l’on 
presse sur une touche du clavier, les notes. Le retour 
au menu se fait par ENTER. 
-"MoiF" permet d’effacer une donnée (Kill) ou de 
modifier les 4 chaines alphanumériques (Modif). 
- Le retour au répertoire HOME se fait par ENTER. 





Listing du programme 


NDLR : Dans les sources suivants, le caractère ’R’ indique un 
retour chariot. 


DIR 
LTEL 
Cc 

“NOM. prénom 
"BP 604 
75028 PARIS CEDEX O1" 
" tel:12 34 56 78" 
“Notes diverses" } 


1 LTEL SIZE 1 + à Prépare X et Y 
DUP2 + 2 / à Calcule 2 (milieu) 
XYZ à Crée Les Vars Locales 
« 
po 
DUP @ Copie La chaîne 
& alphanum de La pile 

LTEL 2 IP & Prend La partie entière 
de Z pour être 
compatible avec GET 
Copie La 2eme Liste 
de LTEL 


GET 


1 GET à Copie La 1ere chaîne 
& alphanum. (NOM Prénom) 
à de La 2eme Liste de 


à LTEL 
IF< à Compare Les 2 chaînes 
THEN 
Z IP ‘Y' STO @ La chaîne est classée 


ELSE @ avant La chaine 2’. 
Z IP ’X’ STO â Zest alors notre 
& nouvelle borne sup. 


END & qu’on stocke dans Y 

2 à Val. de Z dans pile 

XY+2/ à Nouv. val. de Z dans 

DUP #2! STO à pile + enregistrement 
UNTIL == END à Quand Z n’a pas changé, 


à c'est que X et Y ne 

à changent plus. 

@ (soit X=Y ou Y=X+1) 
DROP à On efface La chaine 
2 à On rappelle Z, qui 

à peut être soit un 

à entier, soit un 

4 entier+k (Y=X+1) 

à -> 2=X ou Z=Y (2e cas) 
DUP FP + à On rajoute à Z sa 
à partie décimale, ce 
à qui évite un test 


INTRO 


« 
"NOM prénom ? € "# @ } INPUT 








TEL2 


adresse ?" € a } INPUT 
"n° téléphone 2% € "# & } INPUT 
“ tel:" SWAP + 
“notes ?" € "# @ } INPUT 
TEL3 
« 
LTEL OBJ+ à Démonte LTEL 
DUP 2 + ROLL à Rappelle N au dessus 


a de La pile 
à Calcule La position 
à de La Liste à effacer 


NEG OVER + 2 + 


ROLL à Amène Liste au niveau 1 
DROP a .. et l'efface 
Le à Décrémente taille LTEL 


LIST ’LTEL'’ STO à Reforme LTEL 


TEL3 


« 
& LIST à Forme La Liste 
DUP 1 GET à Affiche "NOM Prenom“ 
N° à Trouve son classement 
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LTEL OBJ-+ @ Démonte La Liste LTEL 
1+-x à Rajoute 1 à La taille 
@ de LTEL et stocke 
@ dans X 
« 
X 1 + ROLL à Rappelle Le classement 
X 1 + ROLL à du dessus de La pile 
4 ainsi La Liste 
NEG X + 1 +  Calcule La position 
& que devra prendre 
à notre liste dans La 
à pile IX+#1 - pos. N°] 
ROLLD à Place 
X LIST à Reforme LTEL 
#LTEL' STO 
» 
» 
TEL4 
« 
LTEL OVER GET à Rappelle La Nieme 
à sous-liste 
SUAP 8 N en ere Ligne 
TEL2 à Efface dans LTEL 
OBJ-+ à Décompose dans La 
à pile La sous-liste 
DROP a Efface sa taille 


4 ROLL “NOM prénom" SWAP INPUT 
4 ROLL "adresse! SWAP INPUT 

4 ROLL "" SWAP INPUT 

4 ROLL “notes! SWAP INPUT 


TEL3 
» 
TELS 
« 
LTEL SAP GET à Reppelle La Nieme 
à sous-liste 
OBJ+ 
DROP2 à efface La taille et 
à La chaîne "notes! 
134 CHR av" 
4 ROLL + à ">NOM Prénom!" 
mu ROT + à ">NOM Prénom 
à tel : 12 34 56 78" 
MARKARR + à 6 retours chariot 
à pour effacer Le reste 
à de L'écran, je 
à préfère à CLLCD qui 
à fait clignoter 
a l'ecran 
SWAP DROP a Efface l'adresse 


1 DISP 3 FREEZE 
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TEL6 


« 


€ } TMENU 


LTEL SMAP GET 


OBJ+ DROP 

SWAP DROP 

ROT "VOIR" 134 CHR + 
SHAP + 

mRU + 1 DISP 





1F DUP2 + 
THEN 
po 
SWAP DUP 
IF M SAME 
THEN 
SWAP 
END 
DUP MRRRAR" + 
2 DISP 3 FREEZE 
-1 WAIT 
UNTIL 51.1 == 





END 
ELSE 
u 
rien de plus 
L 
" 
3 DISP 2 WAIT 
END 
DROP2 








à Efface La Ligne des 
à menus 

à Rappel le Nieme 

a sous-liste 


a Efface La Ligne "tel:" 
à "VOIR>" 

à "VOIR>NOM Prenom“ 

a Ajoute un retour 

à chariot et affiche 

@ Ligne 1 

@ Si "adresse! ou 

@ "notes! sont non vides 


a Si La chaîne à afficher 
à est vide, on passe 
à La suivante 


© 


à 5 retours chariots 


® 


Correspond à La touche 
ENTER 


® 


à 2eme clause du test, 


à affichage 2 secondes 


à Efface La pile 


ere place du pointeur 


"MODIF" "NOTER® } TMENU 


DUP TELS 
-1 WAIT + X 
« 
CASE X 11.1 == 
THEN 
DROP 


a Affichage suivant 


à Efface Le pointeur et 
à Le remplace dans 
à La pile 


“ères Lettres ?" 





= 
a 
" 
hi 


" @ } INPUT N° 


à Décrémente Le pointeur 


à Incrémente Le pointeur 

















1+ 
END 
X 14.1 == 
THEN 
DUP TEL6 
END 
x 15.1 == 
THEN 
"zx 
L 
effacer (12LR 
zx 
modifier (MODIF) 
3?» 


3 DISP 3 FREEZE 


à Affichage restant 


-1 WAIT + Y 
« 
CASE Y 11.1 == à Efface 
THEN 
DUP TEL2 
END 
Y 15.1 == 
THEN 
DUP TEL4 9 modifie 
END 
END 
» 
END 
x 16.1 == 
THEN 
INTRO à enregistrer 
END 
END X 


» 


SWAP 


1 - LTEL SIZE MOD 1 + à Vérifie que Le 





SAP & Le pointeur soit 

à compris entre 1 
à et LTEL SIZE 

UNTIL 51.1 à Touche ENTER 

END 

1 MENU @ Menu utilisateur CST 

UPDIR à Retour au répertoire 
8 supérieur 

DROP à Efface Le pointeur 

» 
CST € Go } 


END 


Christophe Nober (594) 


LA HP48SX : OUTIL DU 
TRADUCTEUR PROFESSIONNEL 


Lorsque j'ai exprimé l'avis à notre ami Jacques Belin 
que notre journal risquait de paraitre un peu "élitiste" 
à la vaste majorité des utilisateurs de nos machines, il 
m'a répondu que ce qui lui manquait cruellement 
c'était justement des articles écrits par des débutants 
ou des semi-débutants. 


Me trouvant en vacances dernièrement pour quelques 
jours, j'en ai donc profité pour soumettre ma propre 
contribution de semi-débutant. 


Il s’agit d’un petit programme pour le HP48SX 
permettant de convertir les caractères accentués d’un 
texte généré sur une machine autre qu’un Macintosh 
(au moyen d’un traitement de texte quelconque), en 
caractères dont les valeurs ASCII représentent ces 
mêmes caractères accentués dans le tableau ASCII 
utilisé par le Macintosh. Ceci afin de permettre une 
exploitation directe du texte en question par le Mac. 


Ici un mot pour expliquer les raisons qui ont conduit à 
ce programme. Je suis traducteur technique de mon 
métier, et lorsque je suis en déplacement j'utilise 
souvent un Z88 (de Cambridge Computer Ltd) à 
clavier français pour traduire des textes de l’anglais 
vers le français, que je transforme ensuite en fichier 
ASCII. Ce fichier est alors envoyé sur le HP48 (via 
Kermit), qui effectue automatiquement la conversion 
des caractères souhaités afin de permettre ensuite le 
transfert du fichier - contenant le texte ainsi modifié - 
vers le Mac. 


Très succintement, il ya lieu tout d’abord de 
constituer deux listes. La première devra contenir, 
chacun entre double guillemets, la suite des 
caractères accentués (et/ou non accentués 
éventuellement) à convertir. L’autre liste contient, 
dans le même ordre bien entendu, une suite de 
caractères dont les valeurs ASCII sur le HP48 
représentent, pour le Macintosh, les caractères 
d’origine qui étaient à convertir. Personnellement j'ai 
préféré stocker ces deux listes dans le port 0, sous les 
variables z et MAC respectivement. 


Quant au programme lui-même, celui-ci EVALue, au 
niveau 1 de la pile, le contenu de la variable utilisée 
pour stocker le texte lors de son transfert depuis le 
Z88. Le programme fait ensuite appel à une boucle 
qui selectionne, séquentiellement, chacun des 
caractères de la première liste pour le remplacer par 
le caractère correspondant de la deuxième liste. Une 
fois la boucle "bouclée", la variable qui contenait le 
texte Z88 non compatible Macintosh à l’origine, 
contiendra maintenant un texte qui le sera devenu. 





ee 
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Dans mon cas personnel, étant donné que je me 
trouve souvent en Grande Bretagne, j'utilise le 
Kermit du HP48 et un modem pour transférer ensuite 
le texte directement vers le Mac de mon client en 
France. 


J'attire l'attention des lecteurs sur plusieurs points : 


- Il va de soi que le type d’ordinateur sur lequel est 
rédigé le texte d’origine est sans importance, puisqu'il 
suffit de modifier la première liste en conséquence, 
celle-ci devant contenir les caractères HP48 
correspondant aux codes que génère l'ordinateur 
pour représenter les caractères à convertir. Il se 
trouve que l'exemple du Z88 est commode parce que 
cette machine utilise le même code ISO que le HP48; 
donc les caractères que je souhaite convertir (ë â ê é à 
è if 6 à à ç) sont rendus identiquement par le HP48 
lorsque celui-ci les reçoit du ZSS8; c’est-à-dire que la 
fameuse première liste contiendra, dans ce cas 
particulier, la même suite de caractères. Par contre, si 
le texte d’origine avait été rédigé sur un PC, ladite 
liste contiendrait des caractères tout à fait différents. 
(Par exemple, le "é", qui est généré par le code ASCII 
130 de FIBM, serait représenté, dans la première 
liste, par le caractère de code 130 de la HP48 (un 
petit triangle inversé). Dans mon exemple, les 
caractères à convertir ont respectivement pour 
valeurs ASCII Macintosh : 


145 137 144 142 136 143 149 148 153 157 158 141 


et seront donc représentés, dans la deuxième liste, 
par les caractères HP48 obtenus en tapant : 


145 ENTER CHR ENTER, 137 ENTER CHR ENTER etc... 


- J'ai écrit ce programme il y a bientôt deux ans, et jai 
utilisé une commande tirée du Programmer's ToolKit 
de James Donnelly : REPLACE. Cette commande sert à 
substituer une sous-chaîne quelconque par une autre 
sous-chaîne partout où elle est rencontrée à 
l'intérieur d’une chaîne donnée. Par exemple : 

“ABCBD" "Bu "-" REPLACE donne "A-C-D" 


-Il est très important de respecter l’ordre des 
caractères contenus dans la première liste; autrement 
on risque de voir un caractère de remplacement 
(inséré lors d’une précédente passe) remplacé 
lui-même par inadvertance lors d’une passe 
ultérieure ! 


- Ce petit programme n’a aucune prétention, si ce 
n’est d'empêcher que je ne sois mal vu par le bureau 
pour manque de solidarité !! Si Jacques Belin décide 
de le publier, peut-être servira-t-il au moins à inciter 
d’autres membres - dont les compétences en matière 
de programmation ont été acquises, comme moi, 





strictement grâce aux manuels HP - à sortir de leur 
timidité et à contribuer quelque chose à leur tour. 


Last but by no means least, étant moi-même de langue 
anglaise, je demande aux lecteurs d’être indulgents 
s'ils éprouvent, ici et là, des difficultés à me 
comprendre. Croyez-moi, j'ai vraiment transpiré pour 
rédiger cet article en français. 


En tout cas, je suis à la disposition de tout membre du 
Club qui aurait des problèmes de compréhension de 
textes, notices techniques, manuels etc. en langue 
anglaise. Qu’ils n’hésitent pas à me contacter. 


Enfin, je voudrais profiter de cette occasion pour dire 
combien j’admire la tenacité et le courage de Jacques 
Belin dans le rôle, souvent ingrat, qui est le sien. Je 
pense franchement que sans lui et Guy Toublanc le 
Club sombrerait bien vite. 


Voici le programme, que j'ai nommé zMc : (Je 
rappelle qu’il utilise deux listes, "2" et "MAC", contenant 
respectivement les codes d’origine et les codes de 
remplacement (12 dans mon exemple) et stockées 
toutes deux dans le port 0). 


DUP EVAL :0: MAC EVAL :0: Z EVAL 
ROT mpc f 
#17 
FOR i 
pe i GET mi GET 
REPLACE 
NEXT 
» 
SWAP STO 


Robert Amram (390) 





NUMERO DE SEMAINE 
ACTE III 


Faisant suite aux articles de Robert Pulluard et de 
Guy Toublanc, je vous propose ma contribution à l’art 
de l'optimisation. 














Tout d’abord, il me faut relever une erreur dans les 
programmes de Guy qui a semble-t-il regroupé un 
peu rapidement les lignes 3 et 7 (je reprend ses 
notations, voir JPC92, p10). Pour vous en convaincre, 
essayez avec un jour quelconque de 1992. Voici une 
version corrigée possible de NsEmuser, renommée 
NSEM2 : 


NSEM2 

checksum: #8145h 106.5 octets 

« 
DUP O DATE IFTE + a1 
-2 ALOG OVER OVER MOD + 1+ 22 
DUP ROT DDAYS 3 + a3 
MTHFRSASUMOTUWE!" 24 
ROT 0 TSTR a5 
1 2 suB Pos a6 
STEEL a7 
FLOOR a8 


» 


Je me suis limité pour ma part à l'optimisation de 
NSEM en langage RPL utilisateur. Je me suis interdit 
toute astuce telle que suppression des délimiteurs de 
programme, insertion d’Externals, etc. Voici donc 
ma version, dénommée NSEM3 : 


NSEM3 
checksum: #70ECh 78 octets 


DUP DATE IFTE 


-2 ALOG à jj.mmaasa 0.01 

DUP2 MOD + 1 + @ jj.mmaaaa 1.01aaaa 

DUP ROT @ 1.01aasa 1.01aaaa jj.mmaaaa 
DAYS 3 + à 1.01aaaa (n+2) 

2.021989 ROT à (n+2) 2.021989 1.01aaaa 
DDAYS 7 MOD a(mar 

+7/ FLOR à résultat ! 


» 


Le gain en encombrement est dû principalement au 
calcul du jour de la semaine à l’aide de opays. En 
effet, la fonction vou (Day Of Week) peut être 
réalisée par la séquence : 


1.011989 SWAP DDAYS 7 MOD 


J'ai intégré une variante de ce calcul à NSEM3 de façon 
à optimiser le code. Notez que javais déjà publié une 
version de DoW sur le même principe dans JPC 78 à 
loccasion d’un programme de calendrier perpétuel 
Ge constate que ma prose laisse un souvenir 
impérissable …). Toute la subtilité reside dans le fait 
que cette séquence fonctionne quelque soit le format 
de la date (flag -42). Vous trouverez un autre exemple 
d'utilisation de DbAYS dans la derniere version de mon 


programme d’astronomie (à paraître le moins 
prochain), où je lutilise pour calculer un temps 
exprimé en jours julian de façon très efficace. 


J'ai gagné encore quelques quartets en utilisant de 
façon adéquate les fonctions 1FTE et DuP2. (Une 
question m’obsède: à quoi pensait donc notre bon 
docteur JPC en écrivant cette horrible séquence 
OVER OVER ?). L’astuce de Robert pour placer 0.01 sur 
la pile consistant à faire le calcul -2 ALOG est 
effectivement très efficace en terme de taille de code 
(5 octets), mais si le temps d’execution est votre souci 
principal, vous aurez intérêt à remplacer ces 2 
instructions par la constante 0.01, même au prix de 
ses 10.5 octets. 


La conclusion de tout ceci pourrait être que le 
langage RPL utilisateur, est d’une très grande 
richesse, et peut, bien maitrisé, donner des 
programmes extrèmement performants et compacts, 
du moins dans les domaines qui sont le sien, c’est à 
dire les utilitaires à base mathématique. Le system 
RPL est d’une richesse encore plus grande et permet 
justement d’élargir le champ d’action de la 48, mais je 
ne l'ai jusqu'ici qu’effleuré superficiellement. 


Qui réalisera NSEM4 à moins de 75 octets ? (Je pense 
que c’est impossible, mais … ) 


Jean-François GARNIER (242) 


TRUCS ASTUCES ET 
PETITS UTILITAIRES 


Auteur: Lu Vy HUYNH (579) 


Sujet : retourner n°LIB et n°XLIB d’un Rom-Word 
ou Romptr (sur HP48xx). 


XLIB-+ 
bytes: 68, chksum: #DAS81h 


CK1NoB Lame * objet quelconque 
CODE 

GOSBVL  =SAVPTR 

GOSBVL =Rom-Word? * ROM-WORD ? 

Goc inrom * oui 
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DO=A * non 
A=DATO A 
DO=D0+ 11 
LCC5)  =DOROMP 
?AC A * ROMPTR ? 
GOYES ok #* oui 
GOSBVL  =GETPTR * ce n'est pas ROMPTR 
GOVLNG  #0501B * alors “Undefined XLIB 
* Name” DOERR 
inrom DO=A 
ok 3 * n°XLIB 
A 
x 
#* dans R1 
3 * n°LIB 
x 
* dans RO 
GOSBVL  =PUSH2# * push 2:<n°L18> 
e 1:<n°XL18> 
GOVLNG  =Loop 
ENDCODE 
ROTDROP 
UNCOERCE2 * UNCOERCE SWAP UNCOERCE 


* 


SAP 


Commentaires de G.T : 


Très heureux de recevoir dans cette rubrique, qui est 
celle de tout le monde, cette contribution de notre 
ami Lu Vy Huynbh, j’ajouterai simplement: l'adresse 
#050B1 bien que n'étant pas un point d'entrée 
supporté par HP, correspond bien au même 
programme dans les versions A à P. 


Exemple d'utilisation : 
€ SWAP } OBJ-+ DROP 
XLIB+ + 2 


271 


Donc saP appartient à la librairie en Rom de numéro 
2 et a pour numéro de commande 271 (#10Fh). 


Même procédure pour les librairies non en Rom. 


Echappent à ce programmes les instructions telles 1F 
THEN etc... ou celles de la librairie de commande DEv. 


A PROPOS DE XMODEM 
et XMOD->KER 


David Fabiani, un adhérent italien de HPCC et de 
48Sxtant m’a fait part de problèmes rencontrés lors 
du transfert d’objets HP48 de son HP95 vers la HP48 
série G et sous protocole Xmodem. S’il est satisfait du 
Kermit HP48 il émet des réserves concernant la 
fiabilité du Xmodem HP48, déplorant le manque de 
contrôle par CRC. 


En ce qui me concerne je n’ai pas rencontré de 
problèmes en utilisant Xmodem de Windows 3.0. Par 
contre avec LotusWorks 1.0 je reçois toujours dans la 
HP48 des chaînes ce qui m’oblige à récupérer l’objet 
binaire avec XMOD-KER (JPC-91 page 14). 


L’alerte de David Fabiani m’a fait prendre mieux 
conscience de dégradations éventuelles des données 
d’un objet HP48 lors d’une réception Xmodem. Aussi 
il n’est pas inutile de rappeler le principe de XMOD-KER 
et de ses limites. 


Ce programme recherche, dans les données de la 
chaîne reçue, le code du premier prologue de l’objet 
binaire HP48. C’est ce principe qui a été utilisé avant 
moi dans le programme AscLoab de Voyage 48G (voir 
l'intitulé très très précis de cet ouvrage dans JPC-91 
page 4). Dans la partie assembleur de ce programme 
il est vérifié : 

- la présence d’un objet 

- le type chaîne 


Si la chaîne est de longueur nulle ou si aucun 
prologue n’a été trouvé, la chaîne est recréée sur la 
pile donc ici pas d’avertissement de problème 
rencontré. Autre problème : le programme cherche 
un prologue en partant du premier quartet des 
données de la chaîne et allant éventuellement 
jusqu’au dernier quartet, le prélèvement des quartets 
se se faisant toujours par 5. Ceci peut nous amener au 
cas de figure suivant dans le cas d’un objet dégradé : 


dernier quartet de La chaîne 


v 


la suite ccccc de code, du dernier quartet de la chaîne 
et des 4 quartets suivants en mémoire (4 premiers 
quartets de longueur de zone de l'objet lui-même 
avec son nom dans le répertoire), peut correspondre 
éventuellement au code d’un prologue et alors 
qu’obtiendrons nous comme objet à partir de cette 
adresse ? 





T5 =] 








Pour prévoir cette éventualité j'ai modifié mon 
programme XMOD-KER. Celui-ci, comme ASCLOAD, est un 
utilitaire qui ne peut travailler qu'avec ce qu’on lui 
donne et donc ne peut pas faire des miracles si le 
code a été dégradé. 


Voici donc XMOD-KER nouvelle mouture. Les 
commentaires peuvent être lus dans la 1ère version 
les lignes de remarques correspondent à : 


- Remarque 1: Calcul du nombre maxi de 
prélèvements de 5 quartets puis refus d’une chaîne de 
longueur nulle ou de longueur inférieure à 5 nibs. 

- Remarque 2 : refus si sortie de la boucle sans avoir 
trouvé de code de prologue. 


Si cette nouvelle version plus sécurisante fait 5 octets 
de plus elle reste encore moins octivore que ASCLOAD 
qui est 36% plus long, donc à vous de choisir. 


XMOD-KER 
67.5 octets cksum # D03Ch 
CK1NoBlame CK&DISPATCHO str 


CODE 


gosbvl  =SAVPTR 


asdati a 
di=a 
disdi+ 5 
c=dati a 
di=di+ 5 
a 
a 


* remarque n° 1 





* remarque n° 1 
Loop a=dati à 


do=a 
a=dat0 à 
?asc a 
goyes ok 
cont  di=dit 1 
d=d-1 à 
gone Loop * remarque n° 2 
bad  Lchex 0203 
govlng =GPErrjmpC 
ok adiex 
govlng  =GPOverWrALp 
ENDCODE 
TOTEMPOB 


Voir la liste des codes dans le coin des codes. 


Guy Toublanc (276) 


QE ———————————————— 


ROMSs ET REGARDS 
INDISCRETS 


Compatibilité S et X 


Dans un précédent JPC (n°89 pages 15-16) était 
abordé le problème de la compatibilité logicielle 
entre HP48S(X) et HP48G(X). Un rapide inventaire, 
des programmes parus dans JPC et en langage 
System Rpl ou assembleur, révélait quelques 
programmes pour HP48S(X) inexploitables sur 
HP48G(X). Parmi eux le programme  XPEEK 
permettant de faire un PEEK en Rom cachée. 


Peek en Rom cachée 


Le programme pour S(X) n’opérait que dans la plage 
# 70000h-# 7FFFFh, cette dernière adresse étant la 
limite supérieure de la Rom, celle-ci pouvant être 
explorée en dessous de # 70000h avec un classique 
PEEk. En ce qui concerne la Rom G(X) le problème 
est un peu plus compliqué car celle-ci va jusque 
# FFFFFh et comporte plusieurs plages cachées. 


La technique de programmation doit donc être revue 
pour pouvoir explorer la Rom quelle que soit la plage 
mémoire et quelle que soit la position du programme 
en Ram, IRam, Rom. 


Le problème de départ : il faut à la fois tenir compte 
de la position du programme en mémoire et de 
l'adresse où peeker. Vu le nombre de cas de figures et 
pour simplifier la programmation on pourra adopter 
la stratégie suivante : 

Le programme sera recopié dans une zone mémoire 
et exécuté depuis sa nouvelle position. Deux zones 
sont à notre dispostion: le buffer de transfert de 
mémoire (532 quartets) et le buffer de données de 
l'interface série RS232c (512 quartets) qui ne seront 
pas utilisés autrement pendant lexécution du 
programme. Pour ma part j’ai retenu le 2ième buffer, 
la partie de programme copiée (entre start et end 
dans le listing du fichier source) faisant 364 quartets 
pour le xPeek polyvalent et 353 pour la version 
spécifique HP48G(X). 


Choix et fonctionalités 


Deux versions vous sont offertes: 
- Un XPEEKU compatible HP48-G(X) et S(X) pour 
ceux qui ont les deux machines. Dans les deux cas on 
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peut faire un PEEK sur toute l’étendue de la Rom de 
chaque machine, donc sans les contraintes de la 
version HP48S(X). 

- Un xPEekG spécifique HP48G(X) donc moins 
octivore (235 octets contre 287,5). 


Ces programme sont exécutables en Ram ou en port 
0 pour toutes les machines, en port 1 pour les X ou en 
port 2 pour la SX. 


Côté syntaxe j'ai opté pour la double possibilité de 
donner le nombre de quartets à peeker à l’aide d’un 
entier binaire ou d’un réel. 


Malgé tous ces "+" mon programme compatible S et 
G fait 10 octets de moins que son homologue d’un 
certain livre sur la G(X) et qui est spécifique G(X). 
Ce dernier programme est 30 % plus long que le 
mien pour G(X) (sans la double option) et dans tous 
les cas de figures mes programmes sont au moins 
aussi rapides. 


Maintenant concernant le choix du programme soit 
spécifique G(X) ou compatible S(X) et G(X) cela 
dépend de la ou des machines possédées : 

- Vous n'avez qu'une HP48G(X) alors pas de 
problème c’est le programme spécifique et le moins 
long qui convient. 

- Vous possédez les 2 types de machines et ne tenez 
pas à avoir 2 versions à sauvegarder, ni à faire de 
confusions, alors le programme compatible S et G est 
la bonne solution, d’autant que celui-ci a la possibilité 
de peeker dans toute la Rom cachée ou non, ce que 
ne fait pas l’ancienne version pour S(X). 


Usages possibles 


A quoi peuvent servir ces programmes ? Si vous êtes 
un curieux vous POUVEZ : 

- Transférer le code de la Rom HP48 dans un PC 
pour ensuite le désassembler. 

- Comparer les Roms HP48S(X) et HP48G(X) et 
ainsi voir ce qui a changé. 

- Ou tout simplement faire un éditeur de mémoire. A 
ce propos je signale que les HP48G(X) ne possèdent 
pas d’éditeur de mémoire intégré comme chez leurs 
aînées les HP48S(X), ce qui était très pratique pour 
transférer le code de la Rom dans un PC. 


Inspiration et voies diverses 


L’allusion au programme d’un certain livre se 
rapporte évidemment à celui intitulé ROMPEEK et le 
livre en question est aussi évidemment Voyage 48G 
(réf. dans JPC-91 p4). Si pour le principe de 
transférer le programme dans une zone de buffer je 


me suis inspiré de la dernière version de ROMPEEK, pour 
y arriver j'emploie une méthode plus économe en 
mémoire. En effet ROMPEEK utilise un programme 
d'installation d’un programme non évalué puis lance 
celui-ci, technique intéressante, alors que mon 
programme est d’un seul tenant avec une seule 
séquence de code assembleur. Le reste des octets 
économisés est le résultat d’un plus grand soin dans 
ma programmation (ce qui n'exclut nullement des 
possibilités de faire mieux). 


XPEEKs spécialisés 


Vous trouverez à la fin de cet article le source du 
programme XPEEKU compatible HP48 S et G. Jai 
essayé de le commenter largement. Pour ceux qui 
n’ont qu’une HP48Gx voici tout de suite le source de 
la version courte. Il n’est pas commenté car la 
programmation est de même type que celle de XPEEKU 
auquel vous êtes renvoyé. D’autre part pour ne pas 
monopoliser les colonnes de JPC j'ai mis à côté le 
source d’un programme de la même famille mais plus 
particulier. 


La syntaxe de xPEEKG est rappelé dans le source de 
XPEEKU. 


Voici donc les deux programmes en question. 


XPEEKG XPEEK32K 
cksum # 404Ah 235 octets cksum # 7AB0h 210.5 oct. 


OLASTOWDOB! CK2NOLASTUD  CK1NoBlame 
DUPTYPEREAL? IT %># 
CK&DISPATCHI <BBh> CK&DISPATCHO ELEVEN 


CODE CODE 


=<BBh> EQU #é4dce 
gosub trans gosub trans 
gosbvl  =PopASavptr 
do=a 
do=d0+ 10 
c=dat0 a 
rstk=c 
c=c+c à Lchex 10000 
gosbvl  =MAKESN gosbvL  =MAKESN 
c=rstk lchex  fff 
b=c a b=c a 
c=dati à c=dati a 
di=c di=c 
di=di+ 10 di=di+ 10 
c=dati a c=dati a 
di=c di=c 
goto  decr 

Loop  gosbvl =Disablelntr Loop gosbvl =Disab.. 
adiex adiex 
dia di=a 








noram0 


norami 


ram3 


Load 


inf10 


decr 





cd0ex 
ri=c 
Lchex 
?a>=c 
goyes 
c=0 
?a<c 
goyes 
a=0 
gonc 
Lchex 
?a>=c 
goyes 
a=dati 
gonc 


testrami 


Lchex 
?a>=c 
goyes 
Lchex 
?aæ=c 
goyes 
Lchex 
gosub 
gonc 
gosub 
cd0ex 
config 
cd0ex 
config 
gonc 


testram3 


Lchex 
?a>=c 
goyes 
gosub 
c=r2 
di=c 
a=dat1 
résa 


rtn 
gosbvl 
a=dat1 
gosbvl 
gosbvl 
eri 





goyes 


c=c+con 


datO=c 





cd0ex 
ri=c 
00140 Lchex 
a ?a>=c 
noram goyes 
b c=0 
a ?a<c 
noramO goyes 
a a=0 
Load gonc 
7e000 noramO Lchex 
a ?a>=c 
testrami goyes 
1 a=dat1 
load gonc 
testrami 
80000 Lchex 
a ?a>=c 
testrams goyes 
7000 Lchex 
a ?a>=c 
norami goyes 
e000 Lchex 
sub0 gosub 
Load gonc 
sub00 norami gosub 
cddex 
config 
cd0ex 
config 
Load gonc 
testram3 
c0000 Lchex 
a ?a=c 
ram3 goyes 
gram gosub 
czr2 
di=c 
1 a=dat1 
réa 
rtn 
#70b66 ram3 gosbvl 
1 a=dat1 
#70bb7 gosbvl 
=AllowIntr Load  gosbvl 
e=r1 
d0=c 
19e 
P 
P 
inf10 
b,7 
b dat0=a 
d0=d0+ 
di=di+ 
decr b=b-1 
goc 
goto 


00140 
a 
noramÜ 
b 

a 
noramê 
“ 

Load 
7e000 
a 
testrami 
16 
Load 


80000 

a 
testram3 
7f000 

a 

norami 
000 
sub0 
Load 
sub00 


Load 


c0000 


ram3 
gram 


16 


#70b66 

16 
#70bb7 
=AlLow... 


16 
16 
16 


out 
Loop 





out a=r0 out a=r0 





govlng =GPOverWrAL govlng =GPOve... 
gram  cdiex gram  cdiex 
r2=c r2=c 
e=b a e=b a 
r3=c r3=c 
c=rstk c=rstk 
P= 12 P= 12 
cpex 4 cpex 4 
P= 0 P= 0 
gosbvl #700fe gosbvl #700fe 
c=r3 c=r3 
b=c a b=c a 
c=r2 c=r2 
di=c di=c 
a=ré a=r4 
gonc Load gonc Load 
sub00  unenfg sub00  unenfg 
subO  unenfg subO  uncnfg 
a=dati 1 a=dati 16 
cd0ex cd0ex 
Lchex  ff000 Lchex  ff000 
config config 
cd0ex cddex 
config config 
rtncc rtnec 
trans  ad0ex trans  ad0ex 
d0=a d0=a 
gosbvl  =SAVPTR gosbvl  =SAVPTR 
c=rstk 
d0=c 
a aa-c a 
80319 Lchex 80319 
rstk=c 
di=c 
a c=a a 
=MOVEDOWN gosbvl =MOVEDOWN 
2GETPTR goving =GETPTR 
ENDCODE ENDCODE 


Vous trouverez les listes de codes de ces deux 
programmes dans le coin des codes. 


Indiscrétions confortables 


Pour ceux qui ont la chance de posséder un PC, il est 
plus confortable de désassembler les Roms HP48 ou 
d'éditer le code sur un PC. Après avoir utilisé le 
programme VoyaGer des Goodies Disk #2, j'ai adopté 
le décompilateur pour PC et sous DOS : Mons de 
notre ami Jean-François Garnier. 


Par rapport à l'autre décompilateur utilisant un 
fichier Ascii du code de la Rom HP48, MON68 utilise un 
fichier binaire donc deux fois moins gourmand en 
mémoire. Ceci est particulièrement appréciable 
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lorsque les fichiers de plusieurs versions de Roms 
cohabitent sur le disque dur. 


Le transfert de la Rom des HP48Sx pouvait se faire 
aisément grâce à son éditeur de mémoire et Kermit. 
Cela n’est plus réalisable avec les HP48Gx. 


Il serait possible de transférer la Rom HP48 via 
ROMPEEK ou XPEEK mais cela présenterait deux gros 
inconvénients : 

-Les 512K de Rom (fragmentée) seraient 
transformés en 1024K de chaînes et les programmes 
lisant un quartet à la fois, puis faisant la conversion 
ascii cela n’est pas favorable à la rapidité. 

- Puis pour le transfert il y aurait à la fois le temps et 
usure des piles. 


Le programme ci-dessus XPEEK32k permet d’opérer de 
la manière suivante : 


Les données dans une chaîne représentant un nombre 
pair de quartets, il suffira de poker dans une chaîne 
un nombre pair de quartets de la Rom sans faire de 
conversion ascii, d’où des chaînes 2 fois moins grosses 
qu'avec ROMPEEK ou XPEEk. D’autre part les zones de 
Rom cachée sont toujours à des adresses et sur des 
longueurs de code multiples de 16 ce qui permet au 
programme de prélever 16 quartets à la fois donc 
pratiquement 16 fois plus rapidement que XPEEK. 


Suivant ce principe, les 512K de Rom sont prélevés en 
16 blocs de 32K. Ces 16 fichiers seront envoyés en 
mode binaire, via Kermit, dans le PC. 


Le transfert HP->PC devant être très fiable pour 
récupérer l'intégralité de la Rom (sans décalage) je 
n’envisage que le transfert sous Kermit. 


Sur le PC un programme réassemblera les 16 blocs de 
code de Rom en un seul bloc de 512K. Pour faire cela 
j'ai réalisé un mini programme en Turbo Basic que 
vous trouverez plus bas et avec quelques explications 
complémentaires. 


Pour automatiser le transfert des 512K de la Rom 
voici un petit programme qui utilise XPEEK32. Il 
suffira donc de connecter la HP48 au PC, de lancer 
Kermit en 9600 bauds et mode serveur, faire de la 
place en Ram sur HP48, xPEEK32X étant présent le 
programme ROM486- se chargera du reste. 


Utile précaution : 
état de fraîcheur. 


assurez vous d’avoir des piles en 


En cas de problème lors des transferts, il vous 
suffirait de modifier ce programme de la manière 
suivante : 


© —————— 


Si le transfert s’est bien effectué pour RoM1 à ROMn, 
modifiez le départ de la boucle avec n+1 au lieu de 1 
et remplacez # Oh en 3ième ligne par la valeur 
correspondant à # 10000h * n. Purgez la ou les 
variables ROMXx éventuellement. Relancez Kermit 
puis ROM48G+. 


Voici donc ce programme en User Rpl. 


ROM48G- 
cksum: # 52B3h 314 octets 
« RCLF 'FLAGS' STO 
STD HEX -33 CF -35 SF 
# Oh DUP DEBUP' STO ‘DEBUN’ STO 
0 ‘P' STO 
116 
FOR 1 
ROM" P + # 5B15h SYSEVAL PURGE 
DEBUN DUP ‘DEBUP' STO 
XPEEK32K "ROM" 1 DUP ‘P* STO 
+ OBJ+ SWAP OVER STO 
DESUP # 10000h + ’DEBUN’ STO 
SEND CLOSEIO 
NEXT FLAGS STOF 


» 


Après l'assemblage sur le PC des fichiers binaires 
RoH1 à RoM16 vous obtiendrez le code des 512K de la 
Rom en un unique fichier ROM48.BIN utilisable par 
MONG8. 


Les possesseurs de HP48G avec 32K de Ram doivent 
adapter ces programmes en fonction de la place 
mémoire disponible. Si certains expriment le désir 
que je fasse ces modifications moi-même, alors qu’ils 
n'hésitent pas à se manifester. 


Et un peu de Basic... 


Comme promis voici le programme en Turbo Basic 
permettant de reconstituer le code de la Rom des 
HP48Gx dans un fichier binaire DOS. 


Le principe: 


Chaque fichier RoM1 à RoMI6 a len-tête Kermit 
HPHP48-x où x est la version de la HP48, suit le code 
"c2420" pour la chaîne transférée, puis les 5 quartets 
de la longueur de la chaîne ce qui fait au total 
8 + 5 = 13 octets à sauter pour pointer sur le début 
du code de la partie de Rom HP48. 


Pour chacun des fichiers ROM1 à ROM16 on pointe sur 
loctet n° 14 (13 pour SEEk) puis on lit le maximum 
pour Turbo Basic : 32767 octets qui seront chargés 
dans le fichier ROM48.BIN. La lecture du dernier octet, 











— 


pour faire 32K, puis le chargement termineront le 
transfert d’un module de 32K. 


Il ne restera plus qu’à détruire les fichiers ROM1 à ROM16 
et, si vous possédez plusieurs Roms, à renommer 
ROM48BIN en ROM48BIN suivant la version de la 
Rom x = M, P... 

Vous voila prêts pour jouer les curieux avec le 
décompilateur MON48 de Jean-François Garnier. 
Remarque: 

Etant donnée la très grande simplicité du principe il 
est très facile de transposer le programme ci-dessous 
dans un autre langage. 


ROMA48ADD.BAS 


1 auteur Guy Toublanc 


programme à compiler en Turbo Basic et 
pour assembler Les fichiers HP-48 ROM1 à ROM16 
générés par Les programmes HP48 ROM4BGX et 
XPEEK32K et reconstituer dans Le fichier DOS 
ROM4B.BIN Le code des 512K de La Rom HP4BGx 
ce fichier binaire est utilisable avec MON48 
Le décompilateur de Jean-François Garnier 


close 

f0$ = "rom8.bin" 

open f0$ for binary as #1 
for i%=1 to 16 

f1$ = rom + mid$(strS(i%),2) 
open f1$ for binary as #2 
seek 2,13 

getS #2,32767,c$ 

put$ #1,c$ 

get$ #2,1,c$ 

put$ #1,c$ 

close #2 





next 

close 
print fin" 
end 


Guy Toublanc (276) 
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JEU DE CARTES 


New Média vient de commercialiser une nouvelle 
carte pour HP95 et HP100. Il s’agit de la Flash Bak 
qui, comme son nom l'indique est une carte Flash 
permettant d'effectuer une sauvegarde du disque C. 
Un logiciel intégré à la carte permet d’effectuer un 
Back Up d’une sélection de fichiers ou de l'image 
totale du disque. L'intérêt de cette carte consiste 
surtout en son faible prix : 49$ pour la version 512 ko 
et 99$ pour la version 1 Mo. 


D'autre part, ayant discuté dernièrement avec un 
représentant de cette société, j'ai eu la confirmation 
qu’ils n’avaient pas en projet de version plus rapide de 
leur PalmModem pour HP95 (en PCMCIA version 
1.0). Par contre, en ce qui concerne le HP100, je 
rapelle qu’ils disposent d’une version allant jusqu’à 
14400 bits/s en fax et modem. 


Il est à noter que les cartes New Media sont 
maintenant distribuées en France par la société 
Distrilogie. 


Jacques Belin (123) 


A L'OMBRE DES 
FOUGERES FRACTALES... 


De nombreux adhérents m’ont souvent reproché de 
publier des programmes dans des langages qu’ils ne 
maitrisaient pas, comme le C ou l’assembleur... Or, je 
voudrais préciser que si je n’utilise plus le Basic, je 
mai absolument rien contre le fait que d’autres 
programment avec, et encore moins qu’ils publient 
des programmes dans ce langage ! 


La preuve ? Pour une fois, je vais changer mes 
habitudes, et vous présenter moi-même un 
programme en Basic ! Et j'espère que cela devrait 
suffire pour vous inciter utiliser ce langage pour 
écrire des petits programmes, puis nous en faire 
profiter. 


Le sujet qui va nous servir de d’exemple m'a été 
inspiré à la vision d’un programme HP48 paru dans 
un récent 48SXTANT, la revue de notre ami Robert 
Pulluard. 


Cependant, je dois avouer qu’une grande partie du 
texte est honteusement (si si !) recopié sur l’article 
original ! J'espère que Robert m’en excusera. Il faut 
dire que si je suis intéressé par ce genre de 
programmes, je n’y comprends strictement rien à ce 
type de mathématiques Pour résumer, je n’ai fait 
que le portage du programme HP48 vers le HP95. 
Soit le plus facile, étant donné la simplicité du code 
de ce programme ! 


Le but de ce petit programme est d’afficher une des 
images fractale les plus spectaculaires, car semblant 
sortir tout droit du monde végétal : la fougère de 
Barnsley. 


La théorie de cette fougère est un peu plus complexe 
que pour certaines autres images  fractales 
(Mandelbrot, triangle de Sierpinski). En effet, si elle 
est "autosimilaire", ses règles de transformation ne 
sont pas aussi directes pour passer d’une "niveau" au 
suivant. Il s’agit ici de quatre transformations linéaires 
affines dont les coefficients de réduction sont 
différents. D'autre part, nous n'avons pas nous 
n’avons pas affaire à une ligne, comme pour la courbe 
de Koch, mais à une surface qui est reproduite en 
quatre exemplaire réduits, étirés, retournés puis 
juxtaposés (avec des recouvrements). 


S'il existe des algorithmes pour effectuer ces 
transformations de manière littérale, ils sont 
cependant trop lourds et trop lents pour nos modestes 
moyens. Haureusement, la théorie montre qu’une 
figure telle que la fougère de Barnsley est un 
“attracteur" pour la transformation considérée, et ceci 
a comme conséquence que tout point appartenant à la 
figure résulte en un autre point de la figure lorsqu’on 
lui fait subir lune de ces transformations. La solution 
est alors simple : opérons directement sur les points 
(pixels, en partant d’un point connu de la figure, tel 
que l'extrémité de la tige (point de coordonée [0.5*w 
0], si “w" est la largeur de la figure) en lui appliquant 
lune des transformations, puis, partant du point 
obtenu, en évaluant le point suivant de la même 
manière, at ainsi de suite jusqu'à ce qu'on ait 
suffisement de points pour que la figure ressemble à 
quelque chose. 


Chacune des quatre transformations (affines 
linéaires) est de la forme : 
Xn41 = 2% + bY, + € 


Vas = CM + dy, + Ê 


Connaissant les divers coefficients (a, b, c, d, e, f), il 
suffira donc d’appliquer ces transformations un peu 
au hasard pour voir apparaitre sur l’écran de votre 
HP48 (non, de votre HP9S, je recopie trop vite !) la 
fougère en question. C’est la méthode utilisée par le 














programme ci-après, dans lequel le "hasard" est établi 
par la génération d’un nombre aléatoire au moyen da 
la fonction RND. Une astuce, cependant, pour obtenir 
une répartition "équitable" des différents points 
successifs consiste à "piper le dés", c’est à dire que 
selon la valeur du nombre aléatoire, la possibilité de 
choisir l’une ou l’autre des quatres transformations ne 
sera pas la même pour toutes. Un ensemble de tests 
permet de faire le tri et la sélection. La largeur des 
intervales est respectivement de : 

- 0.02 pour la tige, 

- 0.17 pour la feuille du haut, 

- 0.3 pour la feuille du bas, 

- 0.781 pour la partie droite de la fougère. 


Ce programme devant utiliser des fonctions 
graphiques, nous devons utiliser le Swift/Basic, qui est 
le seul Basic adapté au HP95. Heureusement, je sais 
que de nombreux adhérents le possèdent déjà (pour 
des programmes ne faisant pas appel aux spécificités 
du HP95, je vous rappelle que vous pouvez utiliser les 
Basics classiques du PC). Voici donc le listing du 
programme, tel que vous devrez le taper. Les signes 
dièse (#) indiquent des variables en simple précision. 
Notez que l'éditeur intégré au programme ajoutera 
automatiquement les caractères ’#X après chaque 
constante décimale. Je ne les ait pas laissés pour 
rendre le programme plus lisible. 


INPUT "Nombre d’iterations : ";N 
X#=0 
Y#=64 
GRAF 
FOR 1=1 TO N 
A#=RND(0) 
IF A#<0.03 THEN 
xX1#=57.6 
Y14=0.27*Y# 
ELSE 
IF A#<0.17 THEN 
X14=-0.139*X#+0.263*Y#+65.644 
Y1#=0.246*X#+0.224*Y#-8.424 
ELSE 
1F A#<0.3 THEN 
X1#=0.17*X#-0.215*Y#+47.016 
Y14=0.222*X#+0.176*Y#+20.896 
ELSE 
.781*X#+0.034*Y#+12.384 
Y1#=-0.032*X#+0.739*Y#+63.18 
ENDIF 
ENDIF 
ENDIF 
X#=X1# 
YA=YI# 
DOT(Y#,128-X#) 
NEXT 1 
SOUND(1000,250) 
END 











Par rapport au programme de Robert, j'ai aussi 
changé quelques constantes (la dernière de chaque 
ligne de calcul de x1 et Y1) afin d’adapter l'affichage à 
la taille de l'écran. 


Le fonctionnement du programme est simple, 
puisqu'il suffit d’entrer le nombre d’itérations, et 
d'attendre le Bip final, tout en admirant l’image se 
former petit à petit. Très reposant après une journée 
de travail. 


Si vous entrez la valeur 500, vous obtiendrez : 


Pour une valeur de 2500... 
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Il est bien sûr possible de continuer avec des valeurs 
supérieures, afin d’avoir une image plus précise (la 
tige complètement tracée, par exemple), mais cela 
sera au détriment du temps de calcul. La raison est 
que le nombre de pixels à tracer est limité et que plus 
le temps passera, plus le programme passera de 
temps à re-noircir des pixels déjà affichés... 


Avant de terminer, je voudrais préciser (ce qui devrait 
faire enrager encore plus Robert Pulluard !) que 
malgré le fait que les vitesses des microprocesseurs 
des deux machines soient relativement proches, mon 
programme est près de quatre fois plus rapide, 
puisqu'il effectue 4000 itérations en 135" contre 615" 
pour la HP48 ! 


Il n’y a plus de respect pour les anciens... 


Jacques Belin (123) 





UN DEBUG CONTRE 
UN-DELETE 


Sur HP100, si nous récupérons un fichier effacé à 
laide de la commande Undelete du Filer, il y a de 
fortes chances que les derniers octets de ce fichier 
soient perdus. Si cela n’est pas trop génant pour un 
fichier Texte (que nous pouvons corriger avec un 
simple éditeur), cela peut rendre un fichier binaire 
(programme ou données) inutilisable. 


Cependant, les derniers octets des fichiers de base de 
données du HP100 (y compris les fichiers du carnet 
d’adresse ou de l’agenda, qui ont la même structure) 
ne sont pas toujours significatifs. 


Il est donc possible de tenter de récupérer le fichier, 
mais dans certains cas seulement. 


La "recette" qui va suivre a été (si mes souvenirs sont 
bons) communiquée par Everett Kaser. Je vous 
expliquerais ensuite ce que vous venez de faire. 


La manipulation 


Tout d’abord, il est conseillé de sauvegarder le fichier 
(dans une autre unité, de préférence), car les 
manipulations sont un peu complexes, et il y a 
toujours un risque de faire une erreur. 


Ensuite, nous allons utiliser DEBUG pour éditer le 
fichier. Pour cela, il est conseillé de passer sur la ligne 
de commande du Dos, en l’appelant à l’aide de l'icone 
Dos du Filer. Cela permettra donc de disposer de 
suffisement de mémoire vive pour travailler. 


Ensuite, si vous désirez récupérer le fichier 
TOTO-PDB, par exemple, exécuter la commande : 


debug fichier.pdb 


Après chargement du fichier, le programme affichera 
le caractère ”-”, qui indique qu’il est en attente d’une 
commande de l'utilisateur. 


Tapez alors : 
d 112,115 


Ce qui fera apparaitre un "dump" du contenu du 
fichier. Supposons que nous obtenions ceci : 

2116:0110 12 34 56 78 4x 

Les données qui nous intéressent sont celle affichées 
au milieu. Si elles indiquent "00 00 00 00", cela veut 
malheureusement dire qu’il n’est pas possible de 
récupérer le fichier. 


Sinon, tapez la commande : 


rex 


Le programme fera alors apparaitre un nombre 
hexadecimal (qui n’a aucun intérêt pour nous) et vous 
demandra d’entre une valeur : 


-r ex 
CX CDAD 


Il vous faudra alors taper le code hexa décimal des 
deux premiers octets du dump, mais inversés et sans 
espaces. Pour notre exemple, il nous faudra donc 
répondre : 


-r ex 
CX CDAD 
13412 
Ensuite, tapez : 
r bx 
Encore une fois, le programme demandera une 


deuxième fois une entrée de données. Suivant le 
même méthode que précédement (inversion; sans 














espaces) entrez le code hexadécimal des deux octets 
suivants : 


-r bx 
8x 0000 
:7856 


Ensuite, tapez : 
e 112 
puis : 
00<Espace>00<Espace>00<Espace>00<Entrée> 


Le fichier est maintenant corrigé. Il ne reste plus qu’à 
le sauver sur le disque, puis quitter DEBUG : 


w<Entrée> 
q<Entrée> 


Que venons nous de faire ? 


En fait, à l’adresse 12h du fichier de base de données 
(si nous avions entré le chiffre 112, c’est à cause d’une 
convention de DEBUG) se trouve une taille de fichier, 
codée sur 4 octets. Apparement (je n’ai pas vérifié), 
cette taille correspond à l'encombrement des données 
effectivement utilisées, alors que la taille réélle du 
fichier est supérieure. Le programme ajustera la taille 
au cours d’une prochaine utilisation. Si cette valeur 
est égale à 0, cela voudrait dire qu’un ajustement de 
la taille a été fait. 

La manipulation consiste donc à lire la taille du 
fichier, et à l'écrire dans les CX et BX, qui sont les 
registres du microproceseur utilisés par la commande 
“ de oeBuG (voir le chapître concernant DEBUG dans 
votre manuel du Dos pour plus de détails de cette 
commande). 


Entre l'initialisation des registres CX et BX et la 
réécriture du fichier, nous avons réinitialisé la zone de 


données à O0, afin d'interdire toute modification 
ultérieure. 


Comme vous le voyez, si il est possible de récupérer 
certains fichiers, cela ne se fait pas sans mal (bien que 
je ne devrait pas tarder à vous proposer un 
programme faisant cela automatiquement), mais la 
récupération n’est possible que dans certains cas. Je 
ne ferais donc que vous conseiller de réfléchire à deux 
fois avant d’effacer un fichier. Car après tout, c’est 
encore la meilleure méthode pour ne pas avoir à 
utiliser Undelete.. 


Jacques Belin (123) 
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LE COIN DES CODES 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. Le Coin des 
Codes permet de résoudre ce problème. 


Note importante : 


Même si la présentation des listings est identique, le 
traitement de ceux-ci est différente suivant le 
programme d’entrée et la machine de destination. 
Chaque listing est prévu pour être entré sur sa 
machine de destination. Par exemple, ne tentez pas 
d'entrer un programme HP48 dans un fichier 
MS-DOS à laide du programme Makedos. Vous 
obtiendrez un fichier que vous ne pourrez pas 
transférer dans la HP48. 


Programmes HP48 et HP28S 


Par rapport aux méthodes habituelles sur HP48, notre 
méthode effectuant un calcul local du checksum en 
fin de chaque ligne permet de faciliter la recherche 
d’erreurs, par rapport à une même recherche dans 
une chaîne de plusieurs centaines d’octets. 


Par mesure de sécurité sauvegardez vos programmes 
et fichiers, éventuellement verrouillez vos cartes. 


Tapez les deux programmes correspondant à votre 
machine: 

- pour HP-48 : ASSCOD48 et INPUT48 

- pour HP-28S : ASSCOD28 et INPUT28 

(attention aux parties communes et spécifiques HP-48 
ou HP-28S et aux commentaires) 

Ceci avec la plus grande attention car leur mauvais 
fonctionnement peut entraîner un désordre fatal pour 
les objets contenus dans votre machine. La 
commande sPeen (JPC-85 page 12) peut être incluse 
au début de ASSCOD28. NEWLINE (-) s'obtient sur 
HP-48 par [flèche bleue] puis [.]. 


ASSCOD48 996.5 octets 
cksum # SD1Bh 


ASSCOD28 1136 octets 
cksum # D419h 





« RCLF HEX 64 STUS 1 SF ‘tmpcod’ STO 


“nombre d'octets @ + NEWLINE 
@ NEWLINE 

"17 INPUT48 1 CF STR-+ 2 * 16 @ INPUT28 

DUP2 / IP 3 ROLLD MOD DUP2 0 > + @ si HP-28S 


3 ROLLD 1 + 4 ROLL # Oh DUP + nr fs o « 1 SWAP 

FOR i 

DO MLigne “ i 1 - R-B # 1000h + -STR 4 6 SUB + DUP 
" @ NEWLINE 
chaine @ + NEWLINE 


1F THEN r DUP 6 / IP + SWAP OVER 1 SWAP OVER - 
SUB SWAP 18 + ELSE 38 END ‘’o’ STO + 
3 @ NEWLINE 
M + 1 FS2C IF THEN ROT SWAP CLLCD 1 DISP HALT 
ELSE o INPUTéB END DUP  @ INPUT 
MHILE DUP " # POS DUP @ si HP-28S 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 
1+ 25 SUB IF DUP " == THEN DROP ELSE + END 
END DROP O OVER SIZE 1 SWAP 
FOR j OVER j DUP SUB NUM j * + NEXT 
S + DUP # FFF AND 
" @ NEWLINE 
somme de controle @ + NEWLINE 
-—- @ + NEWLINE 
#6 ROLL SWAP + 34 INPUT4B STR-+ == @ INPUT28 
IF THEN SWAP DROP 1 @ si HP-28S 
ELSE DROP2 1000 1 BEEP 1 SF O END 
UNTIL END /s' STO 
MHILE DUP " # POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 19 SUB + 
END DROP ’tmpcod’ DUP RCL ROT + SWAP STO 
NEXT f STOF » tmpcod 
@ * HP-48 + @@ *seressesnn HP2RG eenesneenesnnenne 
"GROB 8 “ @@ # 20204A04F3D02C67h # FB0004FO2C96040Ch 
OVER SIZE @@ # 8DCC05081F804F27h # 313103190F818341h 


2/1"  @@ # 681808A€91851391h # 45DC061171085168h 
++ SAP @@ # F3D3CEAA125ESD8Eh # 2F9004h 28 STUS 
+ STR+  @@ #0 OR 64 STUS 1 7 START # 3B82h SYSEVAL 
# 4017h @G@ NEXT # 20238h SYSEVAL # 4F3Dh SYSEVAL 
SYSEVAL @@ EVAL 

# 56Béh  @@ toutes ces lignes marquées @@ peuvent 

SYSEVAL  @@ être remplacées par ASC+ : 


DROP @@ soit pour HP-48 (JPC-79 page 11) 


NEWOB @@ ou pour HP-28S (JPC-85 page 8) 

Mfin® CLLCD 1 DISP » @ HP-28S dito 

INPUTA48 412.5 octets INPUT28 228 octets 

cksum # 15C7h cksum # 9412h 

« SAP 1 @ partie commune 

WHILE OVER CLLCD 1 DISP @ HP-48 et HP-28 

REPEAT @ puis séquence 
DO UNTIL KEY END @ HP-48 ou HP-28 


Q@ **eeeeesess FpLAB verreereeess QU 48e HP2BS +++ 








IF DUP 51 == THEN DROP 0 @@ 1F DUP "ENTER" 
ELSE IF DUP 55 == THEN DROP  @@ THEN DROP 0 

1 OVER SIZE 1 - SUB @@ ELSE 

ELSE @@ IF DUP "BACK" 


CASE DUP 17 < THEN 54 + END @@ THEN DROP 1 OVER 
DUP 66 < THEN 7 - END @@ SIZE 1 - SUB 
DUP 76 < THEN 20 - END @@ ELSE 
DUP 86 < THEN 33 - END @G@ suite voir HP-48 

92 == THEN 48 END @@ 

46 END CH @@ 

+ DUP SIZE 3 PICK - 2 + 5 MOD NOT @ partie 
1 FC? AND IF THEN " "+ END END 1 @ commune 
END END SWAP 60 SUB » @ HP-48 et HP-28 














Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante : 


1- lancez le programme ASSCOD48 ou ASSCOD28 

2- donnez le nombre d’octets (1/2 octet compris) puis 
validez avec ENTER. 

3-tapez chaque ligne de codes, correspondant au 
numéro de ligne à 3 chiffres, sans les espaces et 
validez. 

4-tapez la somme de contrôle et validez. S'il y a 
erreur la ligne de codes sera demandée à nouveau 
après émission d’un 8EEep. L’appui sur EDIT fera 
apparaître la ligne des codes qui pourra être corrigée. 
Alors relancez avec CONT. 

5- après l’affichage de "fin" stockez le programme 
assemblé dans la variable donnée en tête. 

6- si tout s’est bien déroulé vous pouvez purger tmpcod 
qui contient la chaîne de codes. 


Programmes MS-DOS 
Afin d’être utilisé par tous, ce programme est destiné 
à être écrit en Gw8asic. Il devrait cependant être facile 


de le convertir pour un autre programme (a8asic, 
Turbo BASIC...). 


Programme MAKEDOS.BAS 


Mode d’emploi : 


1- Lancer le programme : GWBASIC MAKEDOS. BAS 

2- Entrer le nom du fichier destination. 

3- Entrer la taille du fichier. 

4- Entrer les listes de codes puis le checksum (en 
prenant soin d’entrer les codes héxadécimaux en 
majuscules). En cas d’erreur corriger la ligne, en 
prenant soin de placer le curseur après le dernier 
caractère avant de taper sur la touche d’entrée. 

5- Une fois que toutes les lignes sont entrées, sortir 
du Gw8AsIC en exécutant la commande SYsTEM. Le 
nouveau programme est immédiatement disponible. 


Note : La taille du fichier résultant peut être 
supérieure d’un octet à ce qui est affiché dans le 
listing. Cela n’est pas un problème. 


10 INPUT “Nom du fichier : “,NOMS : INPUT “Nombre d'octets : ",N : N=N*2 


20 OPEN NOM$ FOR OUTPUT AS #1 : CLOSE #1 : KILL NOMS 


30 OPEN "bin.tmp" FOR OUTPUT AS #1 : S: 
40 NLINES=N\16 : LENLAST=(N MOD 16)+(CN MOD 16)\5) 





50 IF CN MOD 16)=0 THEN NLINES=NLINES-1 : LENLAST=LEN(PS) 


60 FOR X=0 TO NLINES 

70 IF X=NLINES THEN PS=LEFTS(PS, LENLAST) 
80 C$=P$ 

90 X2$=MOOM+HEXS(X) : 
100 Y=CSRLIN : LOCATE Y,6 : PRINT C$; 
110  LOCATE Y,27 : PRINT " sm = --- 
120 M=S 

130 FOR Z=1 TO LEN(C$) 





PRINT RIGHTS(X2$,3 











3 LOCATE Y,6 : INPUT ",C$ : 
LOCATE Y,33 : INPUT "",D$ 


IF Y=24 THEN Y=Y-1 


140 IF MIDS(C$,2Z,1)<>" " THEN M=(M+((Z-(Z\5))*ASC(MIDS(CS,Z,1)))) MOD 4096 


150 NEXT Z 


160 D2$="O0"+HEXS(M) : D2S=RIGHTS(D2$,3) 


170 IF D2$<>D$ THEN PRINT "Erreur de somme" : BEEP 


180 FOR Z=1 TO LEN(CS) STEP 2 
190 IF MID$(C$S,Z,1)=" M THEN Z=2-1 : GOTO 230 


200 CH=ASC(MIDS(CS,2,1))-48 : IF CH>9 THEN CH=CH-7 
=CL-7 


210 CL=ASC(MIDS(CS,2+1,1))-48 : IF CL>9 THEN CI 
220 PRINT#1,CHR$C(16*CH)+CL); 





230 NEXTZ 
240 S=M 
250 NEXT X 


260 CLOSE #1 : NAME "bin.tmp" AS NOM$ : END 


: GOTO 90 








JPC 93 Page 31 — 





SYMX 
# 5BATh 


0123 4567 89AB 


000: 69c2 
0700 
1871 
2E08 
0852 
005: 10 





XLIB+ 
# DAB1h 


0123 


000: D9p2 
001: cD20 
002: 8FFC 
003: 16A3 
: F207 
1820 
5631 
65D2 
008: 1308 





XMOD-KER 
# DO3Ch 


0123 


000: D9D2 
: 0040 
: 0008 
5 1741 
734C 
0142 
E333 
382 
008: 3082 





XPEEK32K 
# 7ABOh 


0123 
000: D9p2 


001: 5040 
002: 1007 





0c40 
0071 
10c1 
0842 
1401 


4567 


0D29 
0600 
F164 
429E 
6080 
2156 
088F 
12F0 
2130 


4567 


0D29 
D9p2 
4413 
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CHP28) 

41 octets 

CDEF sm 

008F 1805 C9% 
351C FC8 A60 
42D2 8086 71C 
3102 5708 2A4 
4D8D 1E52 042 
003 

CHP48) 

68 octets 

89AB CDEF sm 
5109 D20C E87 
O08FB 9760 BB7 
5213 0142 791 
208A 2318 46D 
8105 0130 078 
3109 1821 BFE 
9256 0804 974 
6805 9182  6CA 
DFE 

CHP48) 

67.5 octets 
89AB CDEF sm 
5109 F81D F4 
occD 2045 DBE 
6014 3131 992 
4818 FA9D 860 
4811 4313 419 
1170 CF5C 289 
DO4F 0113 EBA 
7566 0B21 B12 
AA 

CHP48) 

210.5 octets 
89AB CDEF sm 
5109 F81D F14 
OccD 2007 E10 
4000 018F  A02 


003: D7B5 
004: 3517 
005: 1013 
006: 0410 
007: 80AF 
008: BE90 
0888 
EF03 
7890 
5333 
00D: c401 
00€: 018F 
00F: 8807 
010: 4158 
011: 0693 
3710 
F420 
11A1 
0415 
016: 8051 
017: 08F8 
018: 4913 
0760 
8213 














XPEEKG 
# 404Ah 


0123 


D902 
6126 
F81E 
20A9 
2313 
FD78 
179 
1110 
3404 
8270 
8BE9 
0088 
BEFO 
478A 
5533 
7C50 
4018 
7880 
012: 3431 
013: 8626 
014: 606A 
015: 1371 








032F 
917 
3131 
088€ 
05E7 
158F 
EE23 
3000 
1368 
4000 
113 
6680 
8F5E 
FéF 
F110 
A9 

BFEF 
3511 
BF13 
3680 
9760 
0806 
8020 


4567 


0D48 
c891 
cD46 
1007 
0169 
5007 
4713 
1331 
1008 
DOSE 
0158 
BEE2 
3300 
0136 
3400 
11A1 
F668 
78F5 
9348 
14c1 
2F11 
0AD9 


FFD5 
1358 
1361 
OIAE 
3400 
5863 
4000 
E72A 
0513 
0c88 
5158 
7158 
0101 
17FA 
8027 
0807 
0071 
45AA 
6340 
5031 
0713 
1350 
7608 


89AB 


8118 
69F3 
D902 
1618 
1460 
D514 
5630 
3113 
BEFO 
7340 
0586 
3400 
0E72 
8051 
00c8 
3515 
0715 
E010 
E98E 
6117 
0802 
1080 


1471 836 
F511 4AA 
0934 FCC 
2882 E26 
0E78 B74 
4000 817 
F788 650 
0564 2F1 
6805 E93 
E517 C0 
F104 8E6 
F8F7 838 
1913 461 
3D46 34C 
6301 F7C 
2c80 Cc8 
1805 839 
8048 830 
O0FF 5F6 
3213  0D8 
4EA3 E71 
6éBFC CFC 
2130 992 
c87 
CHP48) 
235 octets 
CDEF sm 
A819  E38 
4528 C4 
OCCD CD7 
FC15 A24 
écé8  6D8 
7135 348 
08F5 ODA 
6109  BD4 
AE28 ABB 
00E7 7C9 
3400 430 
OF78 103 
8056 EAE 
3680 A65 
BES1 7CC 
8010 39F 
BO8F 1E1 
1191 E51 
8081 C3A 
OCD4 9AB 
7630 644 
72C8 401 





OF42 
511A 
8041 
F805 
308F 
3491 
co76 
0821 





XPEEKU 
# 9092h 





005: 3562 






: 0715 
: E010 
: E98E 
6117 
0802 
: 1080 
: 8FFB 
208F 
A135 
1580 
: 0780 
018: 8Fc1 
01c: 1011 
01D: OACA 
0cé4 
88A0 
F011 
1308 
022: 0613 
023: 2076 


OBFE F007 


1180 


1351 145A 9804 


5B01 3634 
1368 0503 
8976 0071 
3080 6135 
0802 D760 
30 


000F 
1321 
34EA 
D68F 
B213 


286 
FIF 


642 
429 
1E7 
EF4 
321 


CHP48) 


287.5 octets 


4567 89AB 


0048 81D8 
c891 69F3 
CD46 D9D2 
2007 c611 
8501 1905 
EO8F 5111 
3313 1860 
788E 0734 
FOAE 2882 
4000 E78B 
9634 0000 
000F 78BE 
75C0 5447 
0780 5533 
BE51 7C50 
8010 4018 
BO8F 7880 
1191 3431 
8081 8626 
OcD4 6068 
7630 1371 
7860 212F 
6205 112C 
EFO0 7118 
1145 5880 
0634 000F 
5031 3213 
5231 3016 
4713 4169 
1881 1001 
F185 0340 
1343 0200 
1007 134E 
8609 034C 
SDé8 FCO7 
0821 30B2 


CDEF 


A819 
4528 
OccD 
19c6 
11A1 
0136 
E034 
0410 
7000 
E901 
B88BE 
F033 
B800 
3400 
11A1 
F66B 
78F5 
9348 
1401 
1F11 
OAD9 
80F4 
80F4 
D511 
4804 
F805 
0100 
9142 
1461 
4684 
0008 
8004 
A349 
F107 
608D 
130 


sm 


E38 
C4E 
co7 
AA 
608 
:14 
EB5 
ABC 
8FA 
6AC 
425 
251 
FA6 
ABS 


56F 
474 
OEC 
DB8 
830 


SEA 
379 
0ED 
CAS 
95 
3ED 
F60 
ADD 
748 
2AE 
EAC 
BAB 


721 
FAA 
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Récupération des mémoniques HP | G+ Toublanc 18115] 
REV : Nouvelle version 1 G. Toublanc 1881151 
Les triangles de Sierpinski | G. Toublanc 181 91 
Compatibilité et HP48 | G. Toublanc [&|15] 
Calculs astronomiques | d.F. Garnier [901181] 
Calcul du numéro de semaine | R. Pulluard [an] 
Calculs hyperbol iques | G: Toublanc 19211421 
Trucs et astuces | G. Toublanc 1911431] 
| Points d'entrées correspondant SX & GX | P. Silvestre de Sacy | 91 | 15 | 
| Cartes TDS sur Le port 2 (486X) | P. Silvestre de Sacy | 91 | 16 | 
| Changement de répertoire (Acte 11) | P. Silvestre de Sacy | 91 | 18 | 
| Numéro de semaine (acte 2) | G. Toublanc 192110] 
Voyage bizarre ... et code nul. | G. Toublanc 19211%21 
| Trucs sur L'éditions de chaînes | G. Toublanc 121%] 
| Traduction des messages d'erreurs | A Ripoll 121%] 
| Attachement de Librairies | P. Silvestre de Sacy | 92 | 15 | 
| Choc en retour | G. Toublanc [92121 











HP71 

| Titre | Auteur |JPC |Pagel 
séaie 

| Triangles de Sierpinski sur HP-71 | G. Toublanc |æ/|18l 





| 
| Jeu de cartes (PCHCIA) | E. Gengoux 1 & 1271] 
| Configuration de GEDIT sur HP95 | J. Belin 18121 
| La configuration du Drive95 1 6. Merlier 11121 
| Conversion d'images pour HP95 | J. Belin 191251] 
| Conversion d'images (Acte 11) CHP100) | J Belin 192126] 
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Nouveautés 


| 
| Banc d'essai des cartes SunDisk | J. Belin 1 83 | 20 
| Nouveaux Produits | d. Belin 1 83 | 23 
| Le nouveau HP100LX | J. Belin 1 86 | 26 
| Les Goodies Disks HP95 } J. 8etin | 88 | 18 
| PC de Poche : HP100 & 95LX (Livre) | J. Belin | 92 | 22 





| | 

+ + 
| Contrast (Acte 11) | 3. Belin 1 83 | 24 
| La programmation du graphisme sur HP95 | 4. Belin | 8 | 18 
| Programmation graphique, correctif | 3. Belin 1 85 | 2 
| Editeur de motifs de remplissages | J. Belin 1 85 | 2 
| Visualisation d'encombrement du disque } J. Belin 187 | 2 
| Correction de Q.C.M. avec Lotus | P- Guerin | 88 | 19 
| Recherche de fichiers sur disque | J. Belin | 88 | 2 
| Panneau de paramétrage du HP95 | J. Belin 1 90 | 2 
| Programmation du graphisme, correctif | J. Belin 191 28 
| Configuration commune des cartes Ram | J. Belin 192 | 26 
| Commande de sélection de mode écran (HP100) | J. Belin 192127 
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Paris. 
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d'utilisateurs de calculateurs HP. 


La maquette de ce numéro a été préparée et réalisée 
par Jacques Belin et Asdin Aoufi. 


Les dessins sont de Jean-Jacques Dhénin et Paul 
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Les informations et programmes parus dans ce 
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l’auteur ou de PPC Paris. 
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